Supprimer tous les commentaires de la feuille active
Code à placer dans un module
Option Explicit
Sub Supprimer_Tous_Les_Commentaires()
'VériTi
'http://www.excel.veriti.net
Dim Boucle As Variant
'*******************
For Boucle = ActiveSheet.Comments.Count To 1 Step -1
ActiveSheet.Comments(Boucle).Delete
Next Boucle
End Sub