Compter les utilisations d'un caractère dans une cellule
Résultat à obtenir

Pour cela, nous développons un module avec le code
Function CompterCaracteres(Selection, Car)
Dim Compteur, i As Integer, Comparaison As String
For i = 1 To Len(Selection)
Comparaison = Mid(Selection, i, 1)
If UCase(Comparaison) = UCase(Car) Then
Compteur = Compteur + 1
End If
Next
CompterCaracteres = Compteur
End Function
On retrouve notre petite fonction en cliquant sur Fx

Cliquez ici pour télécharger le fichier exemple CompterCaracteres