Comment.Scope (Word)

Renvoie un objet Range qui représente la plage de texte marquée par le commentaire spécifié.

If Selection.Comments.Count >= 1 Then 
 Set myRange = Selection.Comments(1).Scope 
 MsgBox myRange.Text 
End If