Intégrer données dans un tableau en fonction d'une colonne

Bonjour,

Je sais que ce sujet a souvent été abordé dans ce forum,

je souhaite rapatrier des donnée d'une feuille dans un tableau sur une autre feuille. Une colonne est commune entre les 2 feuilles => "code"

Mon code ne fonctionne pas ...

 Sub IntegrationDetailsControles()

    Dim der_ligne As Integer: Dim der_colonne As Integer
    Dim Ligne As Integer: Dim colonne As Integer
    Dim FamilleRubrique As Variant
    Dim R As Variant

    Set ShtCL = ThisWorkbook.Sheets("Contrôles Format Liasse")
    Set ShtCR = ThisWorkbook.Sheets("Contrôles Référentiel")

    'Intégrer détails des contrôles
    ShtCL.Select
    der_colonneCL = Cells(1, Columns.Count).End(xlToLeft).Column
    der_ligneCL = ShtCL.Range("A" & Rows.Count).End(xlUp).Row
    ShtCR.Select
    der_colonneCR = Cells(1, Columns.Count).End(xlToLeft).Column
    der_ligneCR = ShtCR.Range("A" & Rows.Count).End(xlUp).Row

    ShtCR.Select
    'With ShtCL
        For colonne = 1 To der_colonneCR
            For Ligne = 2 To der_ligneCR
                On Error Resume Next
                ShtCL.Cells(Ligne, colonne + 3).Value = WorksheetFunction.VLookup(ShtCL.Cells(Ligne, 1).Value, PlageSource, colonne, False)  'le +6 pour la feuille PDC pour placer en colonne J
                On Error GoTo 0
            Next Ligne
        Next colonne

 End Sub

Résultat attendu

Dans la feuille "Contrôles Format Liasse" je souhaite rapatrier les données (toutes les colonnes sauf la colonne A) de la feuille "Contrôles Référentiel", uniquement pour les lignes si le "code" est commun dans les 2 feuilles.

J'ai trouvé mon souci j'avais oublié la PlageSource

Une autre manière de faire