Bonjour Michel,
essaie ceci:
If cell.Value Like ("*" & [A1] & "*") = True Then cell.ClearContents
pour effacer si la cellule contient ce qui se trouve en A1
ou ceci dans le cas contraire
If cell.Value Like ("*" & [A1] & "*") = False Then cell.ClearContents
pour effacer si la cellule ne contient pas ce qui se trouve en A1
à+
Philippe