ML was telling us:
ML nous racontait que :

If you want to iterate the comment collection and check them out first, try
this:

'_______________________________________
Dim myComment As Comment

For Each myComment In ActiveDocument.Comments
   'If Check something
       myComment.Delete
   'Else do nothing or something else
   'End If
Next
'_______________________________________

Else, in one fell swoop:

WordBasic.DeleteAllCommentsInDoc