Ajouter commentaire en VBa

Bonjour,
Je cherche a insérer un commentaire en utilisant une macro

Private Sub CommandButton27_Click()
'ajouter commentaires
If Intersect(ActiveCell, Range("d6:d400")) Is Nothing Then Exit Sub
On Error Resume Next
ActiveCell.AddComment
ActiveCell.Comment.Visible = True


End Sub

Je cherche comment la finir. Présentement la boite de commentaire s'ouvre je peux y entrer mon texte mais je voudrais qu'en cliquant dans une autre cellule le boite de commentaire se ferme.

Pouvez vous m'aider ?

Merci !