Excel VBA pb de test sur caractère spécial &

Bonjour,

Dans une macro Excel VBA, je cherche à détecter une cellule ayant un caractère spécial & dans une boucle For. Malheureusement ça ne fonctionne pas.

Mon code est le suivant

For Cpt_ligne = 1 To Nb_lignes

If Range("A" & Cpt_ligne).Value = "Elo & J" Then

MsgBox "blabla"

EndIf

Next Cpt_ligne

Aucun message n'apparaît. Auriez-vous une idée ?

D'avance merci!

Bonsoir,

Option Explicit
Public Sub fd()
    Dim Cpt_ligne, Nb_lignes As Integer
    Nb_lignes = 15
    For Cpt_ligne = 1 To Nb_lignes
       If Range("A" & Cpt_ligne).Value Like "*&*" Then
            MsgBox "blabla"
        End If
    Next Cpt_ligne
End Sub