Commentaire

Avec VBA :

Sub NbreDeCommentaires()
    MsgBox Cells.SpecialCells(xlCellTypeComments).Count
End Sub
 

Par exemple :

Option Explicit
Sub AdressesDesCommentaires()
Dim cel As Range
Dim adr As String

  'Concatener les adresses des cellules
  For Each cel In Cells.SpecialCells(xlCellTypeComments)
    adr = adr & cel.Address(False, False) & ", "
  Next
  'Eliminer le ", " en trop à la fin
  adr = Left(adr, Len(adr) - 2)
  'Afficher
  MsgBox adr
  
End Sub

Une solution sans macro : utiliser dans le menu Edition la fonction Atteindre -> Cellules sélectionner "commentaires" : toutes les cellules avec commentaires sont sélectionnées et en choisissant l'option compteur dans la barre d'état on connaît leur nombre
par contre je n'ai pas de solution sans macro pour récupérer la liste des coordonnées