Bonjour,
une proposition
Sub aargh()
chemin = "d:\downloads\test\"
Set wb2 = Workbooks.Open(chemin & "Classeur2.xlsx")
Set ws2 = wb2.Sheets("feuil1")
Set wb1 = Workbooks.Open(chemin & "Classeur1.xlsx")
Set ws1 = wb1.Sheets("feuil1")
dl1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
dl2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row
Set plnd = ws2.Cells(1, 1).Resize(dl2)
For i = 2 To dl1
Set re = plnd.Find(ws1.Cells(i, 1), lookat:=xlWhole)
If Not re Is Nothing Then
ta = ws2.Cells(re.Row, "N")
s = InStr(ta, ws1.Cells(i, 4))
If s <> 0 Then
t = Split(Mid(ta, s), "=")
q = Val(Left(t(1), InStr(t(1) & "#", "#") - 1))
If q = ws1.Cells(i, "G") Then
ws1.Cells(i, 1).Resize(, 12).Interior.Color = vbYellow
End If
End If
End If
Next i
End Sub