Fonction ne marche pas

Bonjour;

J'ai insérer cette fonction

If Range("G16") Like "*J1*" Then
J1 = J1 + 1
End If

à l'intérieur du code de ma feuille.

Mais elle ne marche pas.

Excel me surligne "Like" et me dit: "Erreur de compilation. Attendu: fin d'instruction"

Merci de votre aide.

Bonjour stephane.

Pour moi ta macro fonctionne

si la cellule G16 contient les caractères "J1" alors la variable J1 est égale à la variable J1 +1

sinon met un tit fichier d'exemple pour que l'on puisse t'aider

Cdlt.