Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect([B5:C1000], Target) Is Nothing And Target.Count = 1 Then ' colonne 3 seulement
valsaisie = Target
Application.Undo
If Target.NoteText = "" Then Target.AddComment ' Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Format(Target, "00 00 00 00 00") & " /Modifié par:" & Environ("UserName") & _
" Le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
Target = valsaisie
End If
Application.EnableEvents = True
End Sub