Salut Cyrille, le Forum
Donrénavant suite aux innombrables attaques virales de ces derniers jours, je n'ai pas le droit de télécharger les pièces jointes depuis le bureau, donc je ne me base que sur la macro que tu as indiquée...
Si je comprends bien "si tu trouves les mêmes valeurs" tu cherches une occurrence de la valeur complète de la cellule, et dans ce cas Find n'est pas vraiment nécessaire vu qu'il va chercher dans tout ou partie de la String... De plus rentrer une Plage pour Find ne ce fait pas de cette manière.
Je ferai tout simplement comme ceci :
Option Explicit
Option Compare Text 'Si tu ne veux pas de Match Case
Sub Recherche()
Dim PlageSource As Range
Dim PlageCible As Range
Dim CellSource As Range, CellCible As Range
Set PlageSource = ThisWorkbook.Sheets("Data").Range("b2:b10")
Set PlageCible = ThisWorkbook.Sheets("Resultat").Range("b2:b10")
For Each CellSource In PlageSource
For Each CellCible In PlageCible
If CellCible = "" Then GoTo Nexte 'Si tu veux rien si cellule vide
If CellSource = CellCible Then CellCible.Interior.Pattern = xlPatternGray50
Nexte:
Next CellCible
Next CellSource
End Sub
Bonne Fin d'aprèm
@+Thierry