Colorer cellule contenant un terme

Bonjour,

J'ai un léger problème en vba. Je souhaite écrire une macro qui colorerait une cellule en jaune si elle contient "#CL#". Voici ci dessous le code que j'ai ecrit pour le moment. Le point positif, c'est que ça ne plante pas, le point négatif c'est que ça ne marche pas. Il ne se passe rien...du tout. C'est comme si je n'avais rien lancé. Comme si ma macro n'avait jamais existée.


Sub test()

With Worksheets("Feuil1")
nbcol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For curseur = nbcol To 1 Step -1
If Cells(1, curseur) Like "#CL#" Then
Cells(1, curseur).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next curseur
End With

End Sub


Quelqu'un pourrait-il me dire à quel endroit je fais une erreur svp ?

Merci