Sub ch()
Dim Chaine as string
Dim deb as integer, A as integer, compt as integer
Chaine = Range("A1")
deb = 1
compt = 0
For deb = 1 To Len(Chaine)
A = InStr(deb, Range("A1"), "111")
If A = 0 Then Exit For
deb = A
compt = compt + 1
Next
Range("B1") = compt
End Sub