Sub Macro1()
For Each ws In Worksheets
For Each c In ws.Comments
x = x + 1
Next
Next
Sheets("Feuil1").Range("A1") = x
End Sub
Sub Macro1()
Dim sh As Object, NbCommentaires As Long
For Each sh In Sheets
NbCommentaires = sh.Comments.Count + NbCommentaires
Next
Sheets("Feuil1").Range("A1") = NbCommentaires
End Sub