tester la présence de commentaires dans 1 cellule

Sub masquerligne()
Dim c As Range

For Each c In Range('a1:a30')
    Rows(c.Row).Hidden = c.Comment Is Nothing
Next c
End Sub
'**************************
Sub afficherligne()
Rows.Hidden = False
End Sub

Cliquez pour agrandir...

Sub AffichCommentaires()
Dim Plage As Range, PlageCom As Range
      'Définir la plage globale de traitement
      Set Plage = Range(Cells(1, 1), Cells(Range('A65536').End(xlUp).Row, 1))
      'Extraire de cette plage les cellules avec commentaires
      Set PlageCom = Plage.SpecialCells(xlCellTypeComments)
      'Masquer toute la plage globale
      Plage.EntireRow.Hidden = True
      'Afficher la plage des cellules commentées uniquement
      PlageCom.EntireRow.Hidden = False
End Sub

Cliquez pour agrandir...