Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim c As Comment
If Not Application.Intersect(Target, Range("D7:G150")) Is Nothing And Target.Count = 1 Then
Set c = Target.Comment
If c Is Nothing Then
Target.AddComment " Modifié le : " & Format(Now, "dd/mm/yyyy hh:nn") & vbLf & _
Target.Value
Else
Target.Comment.Text Target.Comment.Text & vbLf & "Re-modifié le : " & Format(Now, "dd/mm/yyyy hh:nn") & vbLf & _
Target.Value
End If
End If
End Sub