Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error Resume Next
Target.Comment.Delete
Target.AddComment
Target.Comment.Visible = False
Target.Comment.Text Text:="il y a " & Range("K" & Target.Row) & " comandes"
End If
End Sub