Sub Compare2()
Dim r As Range
Dim s As Range
For Each r In Feuil2.Range("a2:a" & Feuil2.Range("a1").CurrentRegion.Rows.Count)
For Each s In Feuil1.Range("a2:a" & Feuil1.Range("a1").CurrentRegion.Rows.Count)
If r.Value = s.Value Then s.Range("A1:B1").Interior.ColorIndex = 6
Next s
Next r
End Sub