Public Function Occurence(Texte As Range, Caractere As String) As Integer
Dim i As Integer
Application.Volatile
On Error GoTo gereerr
Occurence = 0
If Len(Caractere) <> 1 Then GoTo gereerr
For i = 1 To Len(Texte.Value)
If Mid(Texte, i, 1) = Caractere Then Occurence = Occurence + 1
Next i
Exit Function
gereerr:
Occurence = '#VALEUR'
End Function