Voila un exemple de code qui recherche la valeur "e" dans la chaine contenue dans la cellule active.
A adapter à tes besoins
Sub test()
Position = InStr(1, ActiveCell, "e")
While Position <> 0
i = i + 1
Position = InStr(Position + 1, ActiveCell, "e")
Wend
MsgBox i
End Sub