Application.ScreenUpdating = False
Range("b1", Cells(Rows.Count, "b").End(xlUp)).Interior.ColorIndex = xlNone
Set c = Range("b1", Cells(Rows.Count, "b").End(xlUp)).Find(Range("a1").Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 3
Cells(Rows.Count, 3).End(xlUp)(2) = c.Address
b = b + 1
Set c = Range("b1", Cells(Rows.Count, "b").End(xlUp)).FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
If b = 0 Then MsgBox "fin de boucle pas d'occurences" Else MsgBox "NB...occurences= " & b