Masquer tous les commentaires de la feuille active
Code à placer dans un module
Option Explicit
Sub Masquer_Tous_Les_Commentaires()
'VériTi
'http://www.excel.veriti.net
Dim Cmt As Comments
Dim C As Comment
'*******************
Set Cmt = ActiveSheet.Comments
For Each C In Cmt
C.Visible = False
Next
End Sub