Question sur un code

Bonjour , j'ai une toute petite question sur un bout de code que j'ai ecris et qui est le suivant

For Each cell In Range("n8:n38")
c = 0
  For i = 1 To Len(cell)
    If Mid(cell, i, 1) = "\" Then
       c = c + 1
    End If
   Next
   If c > 1 Then

  MsgBox "Presence d'une anomalie de remplissage en cellule" & " " & cell.Address
   End If
 Next

le but du code est de scruter chaque cellule de la plage n8:n38 et si pour chaque cellule, le caractère "\" y est trouvé plus d'une fois

alors le message : "Presence d'une anomalie de remplissage en cellule" & " " & cell.Address apparait.

Le soucis est que ce message apparait systematiquement 2 fois sans que j'en comprenne la cause lorsque.

Pourriez vous m'indiquer ce qui ne va pas dans mon code et ce qui explique la generation d'un message double ?

Merci

J'ai essayé ton code et le message apparaît bien qu'une seule fois. Envoie un fichier test peut-être.

Bonjour,

rien vu d'anormal...mais sans fichier

P.

bonjour patrick 1957 , en effet j'ai trouvé mon erreur , ce n'est qu'un partie du code que j'ai posté et en relisant l'ensemble, ce meme bout de code etait dupliqué Merci pour votre intervention