Fonction nbval en VBA

voilà une fonction qui fait ça. Directement utilisée dans Excel, elle renvoie Vrai ou Faux

Function ESTITALIQUE(Cel As Range) As Boolean
ESTITALIQUE = Cel.Font.Italic
End Function

Oups ! mauvaise version, voici celle que je devais te donner (l'autre peut quand même toujours servir)

Function NBITALIQUE(Plage As Range) As Long
Dim Cel As Range
For Each Cel In Plage
If Cel.Font.Italic Then NBITALIQUE = NBITALIQUE + 1
Next Cel
End Function