Comparer 2 feuilles Excel et copier coller lignes identiques

Bonjour,

Je viens vers vous car j'ai besoin d'aide sur une macro

voici mon problème :

J'ai deux tableaux des données (1 et 2) Feuil1 contient 4 colonnes et Feuil2 a les mêmes colonnes que le Feuil1 plus une cinquième colonne "Validé".

J'aimerais comparer la 1ere et le 2éme colonne des deux tableaux , si'il sont identiques et la colonne "Validé" est OK:

Je copie les valeur des trois dernières colonnes 2eme tableau"Feuil2" dans la ligne qui correspond à ces deux critères "Code+ N°)

J'ai essayé de créer un code VBA mais ça marche pas correctement.

Vous trouvez en PJ, un fichier exemple par code VBA

j’espère avoir été assez claire

Merci de votre aide

Bonjour,

à tester,

ps/ je n'ai pas compris la remarque "je garde la ligne en verre, car il n'est pas validé"

Sub test()
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
For i = 2 To sh2.Cells(Rows.Count, 1).End(xlUp).Row
    ValeurRech = """" & sh2.Cells(i, 1).Text & """&""" & sh2.Cells(i, 2).Text & """"
    plgRech = sh1.Name & "!" & "A:A" & "&" & "B:B"
    arg = "Match(" & ValeurRech & "," & plgRech & ",0)"
        If Not IsError(Evaluate(arg)) And sh2.Cells(i, 5) = "OK" Then
          For col = 3 To 5
           sh1.Cells(i, col).Value = sh2.Cells(i, col).Value
          Next
        End If
 Next
End Sub