Bonjour Fraille
C'est possible, tu dois boucler sur toutes les cellules de la feuille et décompter par cellule le nombre de caractères correspondant à ton critère.
dim cel as range
dim caract as string
dim nbcaract, totalcaract as double
for each cel in selection ' par exemple
chaine=cel.value
nbcaract=0
for i = 1 to len(chaine)
if mid(chaine,i,1)=caract then
nbcaract=nbcaract+1
endif
totalcaract=totalcaract+nbcaract
next
msgbox caract & ' trouvé ' & totalcaract & ' fois'
end sub
macro non testé mais l'esprit y est.