En faisant une petite recherche , tu trouveras de quoi solutionner ta question
EDITION: comme je m'ennuyais
je viens de réinventer la roue pour ce qui concerne le gras
Code:
Function NBGRAS(r As Range) As Long
Dim c As Range, cptGras&: cptGras = 0
For Each c In r
cptGras = cptGras - 1 * (c.Font.Bold = True)
Next
NBGRAS = cptGras
End Function
Je te laisse tester et trouver le petit désagrément contenu dans cette fonction.