Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next ' en prévision si il n'y a pas de commentaire
If Target.Address = '$A$1' Then ' vérifie si applicable, c-a-d si cette cellule est celle que tu vise
Range('D3').AddComment
With Comment
.Visible = True
.Text Text:='Chez pas ce que tu veux mettre dedans, pas bien compris ?' ' mis un commentaire
End With
End If
End Sub