XL 2016 VBA Excel 2016 : Copier/Coller entres 2 fichiers excel en fonction d'une date

Private Sub CommandButton1_Click()
    Dim PlgSource, PlgDest As Range, c As Range
    Dim idx As Variant    ' doit être un variant

    '
    ' Définition de la source et de la destination
    Set PlgSource = Application.Workbooks("test 1.xlsm").Worksheets("Relevés").Range("A2:B6")
    Set PlgDest = Application.Workbooks("test 2.xlsx").Worksheets("Données").Range("B2:C32")
    '
    ' Parcours des cellules de la colonne 1 de la plage source
    For Each c In PlgSource.Columns(1).Cells
        '
        ' recherche de la donnée parcourue dans la plage destination, colonne 1
        ' (utilisation de l'équivalent vba de la fonction de feuille EQUIV
        idx = Application.Match(c, PlgDest.Columns(1), 0)
        '
        ' si trouvé, renseigner la colonne 2 de destination
        If Not IsError(idx) Then PlgDest.Cells(idx, 2) = c(1, 2)
    Next
End Sub