Copier avec conditions ? macro ?

J'aimerais à l'aide d'une macro, retrouver le contenu des cellules H, du fichier Modif 1. Mais que SI les valeurs sont identiques (Modif1 colonne A et Modif2 colonne C) merci pour votre aide. Voir les deux fichiers ci-joints.

J'ai oublié de préciser que sur mon fichier il y a des centaines de lignes, voir beaucoup plus.

Bonjour,

voici une proposition de macro, à tester

à mettre dans modif1 dans modif2 ou dans un autre classeur (modif1 et modif2 doivent être ouverts avant de lancer la macro.

Sub fusion()
Set ws2 = Workbooks("Modif2.xls").Worksheets("Feuil1")
Set ws1 = Workbooks("Modif1.xls").Worksheets("Feuil1")
dl1 = ws1.Range("A" & Rows.Count).End(xlUp).Row
dl2 = ws2.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To dl2
Set re = ws1.Range("A2:A" & dl1).Find(ws2.Range("C" & i), lookat:=xlWhole)
If Not re Is Nothing Then
 ws2.Range("Q" & i) = ws1.Range("H" & re.Row)
End If
Next i
End Sub

Je teste et je te dis ça dès que possible, merci.

Bonsoir

Bonsoir h2so4

A tester

Merci beaucoup les gars, j'essaye ça demain au bureau.

Parfait ! merci encore !