Dim c As Range 'déclare la variable c (Cellule)
Dim pa As String 'déclare la variable pa (Première Adresse)
With Worksheets(1).Range("a1:a500") 'prend en compte la plage de recherche (à adapter à ton cas)
Set c = .Find(2, , xlValues, xlWhole) 'définit la recherche (remplacer 2 par ta variable ou la valeur de celle-ci ou l'adresse d'une cellule la contenant)
If Not c Is Nothing Then 'condition : si il existe au moins une occurence trouvée dans la plage de recherche
pa = c.Address 'définit l'adresse de la première occurrence trouvé pa
Do 'exécute
c.Interior.ColorIndex = 5 'colore l'occurrence trouvée
Set c = .FindNext(c) 'redéfinit la recherche (occurrence suivante)
Loop While Not c Is Nothing And c.Address <> pa 'boucle tant qu'il existe des occurrences ailleurs qu'en pa
End If 'fin de la condition
End With 'fin de la prise en compte de la plage de recherche