Utiliser des valeurs de cellules pour completer un commentaire

Sub Macro1()
On Error Resume Next 'gestion des erreur (en cas dérreur passe a la ligne suivante)
Range("B1").AddComment 'ajoute un commentaire (génere une  erreur si il y a déjà un commentaire)
Range("B1").Comment.Text Text:=Range("A1").Value & " Monsieur" 'texte du commentaire en prenant la valeur de la cellule A1
On Error GoTo 0 'annule la gestion des erreurs
End Sub

Sub Macro1()
Dim T As String

T = "Texte : " & Range("A1").Value & Chr(10) & _
   "Texte : " & Range("B1").Value & Chr(10) & _
   "Texte : " & Range("C1").Value
On Error Resume Next 'gestion des erreur (en cas dérreur passe a la ligne suivante)
Range("D1").AddComment 'ajoute un commentaire (génere une  erreur si il y a déjà un commentaire)
Range("D1").Comment.Text Text:=T 'texte du commentaire en prenant la valeur de la cellule A1
On Error GoTo 0 'annule la gestion des erreurs
End Sub