Supprimer tous les commentaires d'une feuille ?

Bonjour peut-on supprimer tous les commentaires d'une feuille via VB ?

Je travaille sous excel 2003 et je n'ai rien trouvé !

Merci de votre aide a++++

Bonjour

Code Module

Sub Supprimer_Commentaires()
'    Cells.Select
    Selection.ClearComments
    Range("A1").Select
End Sub

Cordialement

Bonjour,

Essaie ainsi :

(nom de l'onglet à adapter)

Sub Suppr_Comments()
Sheets("Feuil1").Cells.ClearComments
End Sub

@ Amadéus, si ta sélection ne comprend qu'une cellule, les autres commentaires ne vont pas être effacés.

Edit Amadéus: Tu as bien sur raison, j'aurais du préciser "Effacer les commentaires de la selection"

Bonne journée