Excel VBA, test of the And (&)

In an Excel VBA, how to detect a celle with a & font in a For loop ?

You don’t necessarily need a loop in that case :

Number = Application.CountIf(Columns("A"), "&")
If Number > 0 Then
   Lig = Rows.Count
   For Cptr = 1 To Number
      Lig = Columns("A").Find("&", Cells(Lig, "A")).Row
      MsgBox ("text" & Lig)
   Next
End If