Private Sub Worksheet_Change(ByVal Target As Range)
'Définir la plage d'application:
If Not Intersect([C4:M11], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
If Target < Cells(Target.Row, 2) Then
MsgBox ("Votre saisie n'est pas conforme a l'objectif, Veuillez en saisir les raisons en commentaire")
Target.ClearComments
Target.AddComment "Votre commentaire"
Target.Comment.Visible = True
End If
Application.EnableEvents = True
End If
End Sub