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