Sub raz_plusieurs()
Cells.Interior.ColorIndex = xlNone
mot = "NI"
Set champ = Nothing
Set c = Cells.Find(mot, , , xlWhole)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
If champ Is Nothing Then Set champ = c Else Set champ = Union(champ, c)
Set c = Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
champ.Value = Empty
End Sub