recherche un caractère dans un string

base ton script sur la fonction comme suit

i = 1
a = InStr(i, "bonjour", "j")
a contiendra le numero d'emplacement du 1er j lorsque i = 1,
puis tu decale i avpres la 1er occurence, etc...

BONJOUR Neuba,

voici un exemple de code :

Function NbOccurences(Cel As Range, Car As String, _
Optional Casse As Boolean = False) As Long
Dim Ofs As Long, Critere as Integer
If Casse Then Critere = vbBinaryCompare Else Critere = vbTextCompare
Do
Ofs = InStr(Ofs + 1, CStr(Cel.Value), Car, Critere)
If Ofs > 0 Then NbOccurences = NbOccurences + 1
Loop Until Ofs = 0
End Function