Attribute VB_Name = "modSourcesCertifieesIDR2"
Option Explicit

Public Sub CreerReferentielSourcesCertifiees()

    Dim ws As Worksheet
    Dim r As Long

    Set ws = ResetSheetIDR("REFERENTIEL_SOURCES_CERTIFIEES")

    ws.Range("A1:N1").value = Array( _
        "Code_Source", _
        "Domaine", _
        "Source", _
        "Organisme", _
        "Utilisation", _
        "Certifiee", _
        "Responsable", _
        "Frequence_MAJ", _
        "Statut", _
        "Version", _
        "Date_Publication", _
        "URL_Document", _
        "Validation_Interne", _
        "Date_Validation")

    r = 2

    AjouterSource ws, r, "SRC001", "Comptable", "Recommandation ANC 2013-02", "ANC", "Evaluation engagements retraite"
    AjouterSource ws, r, "SRC002", "Comptable", "PCG ANC 2014-03", "ANC", "Comptabilisation provisions"
    AjouterSource ws, r, "SRC003", "Juridique", "Code du travail L1237-9", "Legifrance", "Droit indemnité retraite"
    AjouterSource ws, r, "SRC004", "Juridique", "Code du travail D1237-1", "Legifrance", "Barème légal"
    AjouterSource ws, r, "SRC005", "Juridique", "Code du travail D1237-2", "Legifrance", "Salaire de référence"
    AjouterSource ws, r, "SRC006", "Comptable", "Code commerce L123-13", "Legifrance", "Provisionnement"
    AjouterSource ws, r, "SRC007", "Actuariat", "Table TGH05/TGF05", "Institut des Actuaires", "Mortalité"
    AjouterSource ws, r, "SRC008", "Statistique", "Tables INSEE", "INSEE", "Contrôle démographique"
    AjouterSource ws, r, "SRC009", "Fiscalité", "BOFiP", "DGFiP", "Traitement fiscal"
    AjouterSource ws, r, "SRC010", "IFRS", "IAS 19", "IFRS Foundation", "Référentiel IFRS"
    AjouterSource ws, r, "SRC011", "Paie", "DSN", "Paie", "Charges patronales"
    AjouterSource ws, r, "SRC012", "RH", "Budget RH", "DRH", "Progression salariale"
    AjouterSource ws, r, "SRC013", "RH", "Historique RH", "SIRH", "Rotation"
    AjouterSource ws, r, "SRC014", "Convention", "Convention collective", "Branche", "Calcul indemnité"
    AjouterSource ws, r, "SRC015", "Actuariat", "Rapport actuariel", "Cabinet Actuariat", "Validation hypothèses"

    FormatReferentielIDR ws, "A1:N1"

    MsgBox "REFERENTIEL_SOURCES_CERTIFIEES créé.", vbInformation

End Sub

Private Sub AjouterSource( _
        ByVal ws As Worksheet, _
        ByRef r As Long, _
        ByVal CodeSource As String, _
        ByVal Domaine As String, _
        ByVal Source As String, _
        ByVal Organisme As String, _
        ByVal Utilisation As String)

    ws.Cells(r, 1).value = CodeSource
    ws.Cells(r, 2).value = Domaine
    ws.Cells(r, 3).value = Source
    ws.Cells(r, 4).value = Organisme
    ws.Cells(r, 5).value = Utilisation
    ws.Cells(r, 6).value = "OUI"
    ws.Cells(r, 7).value = "A DEFINIR"
    ws.Cells(r, 8).value = "ANNUELLE"
    ws.Cells(r, 9).value = "ACTIVE"
    ws.Cells(r, 10).value = "V1"
    ws.Cells(r, 11).value = Date
    ws.Cells(r, 12).value = ""
    ws.Cells(r, 13).value = "OUI"
    ws.Cells(r, 14).value = Date

    r = r + 1

End Sub