Function NBComment(Optional Plage As Range)
Dim Compteur As Integer
Application.Volatile
If Plage Is Nothing Then Set Plage = Range("$" & Application.Caller.Row & ":$" & Application.Caller.Row)
Compteur = 0
For Each Cellule In Plage.Cells
If Not Cellule.Comment Is Nothing Then Compteur = Compteur + 1
Next
NBComment = Compteur
End Function