Identifier les cellules contenants certains mots puis

Bonjour,

Je souhaite créer une macro qui puisse identifier toutes les cellules qui

contiennent certains mots (tous différents) et ensuite que les cellules voisines (même ligne mais colonne différente) correspondantes affichent alors la valeur 0 ou bien

qu'elles soient effacées (vides).

Exemple :

A1=CHF

B1=50 -> B1=0 (ou vide)

A18=USD

B18=120 -> B18=0 (ou vide)

etc.

La macro devra chercher environ 15 mots différents.

Merci par avance pour votre aide.

J'ai trouvé la réponse !

En fait un certain JB a trouvé la solution. Merci à lui.

Sub essai()

For Each c In Range("A1", [A65000].End(xlUp))

If Not IsError(Application.Match(c.Value, [ListeMots], 0)) Then c.Offset(0, 1) = Empty

Next

End Sub