Dim Lig As Long, derLig As Long
Dim Plage As Range, Cell As Range
Dim premAdresse As String
' Dernière ligne en colonne A
derLig = Range("A" & Cells.Rows.Count).End(xlUp).Row
' Plage de cellules
Set Plage = Range("A1:A" & derLig)
' Enlever la couleur sur la plage
Plage.Interior.ColorIndex = xlNone
If Range("D1").Value = "" Then Exit Sub
' Boucle sur chaque cellule de la plage
For Each Cell In Plage
' Si le mot est trouvé
If Cell Like "*" & Range("D1").Value & "*" Then
' Couleur rouge
Cell.Interior.ColorIndex = 3
End If
Next Cell