Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
If Not Application.Intersect(Range("E2:E28"), Target) Is Nothing Then
For Each Cellule In Target
If Cellule.Comment Is Nothing Then
Cellule.AddComment Cellule.Value & " " & Environ("username") & " " & Format(Now, "DD/MM/YYYY HH:MM:SS")
Else
If Cellule.Value = 0 Then
Cellule.Comment.Text Text:=Cellule.Value & " " & Environ("username") & " " & Format(Now, "DD/MM/YYYY HH:MM:SS")
Else
Cellule.Comment.Text Text:=Cellule.Comment.Text & Chr(10) & Cellule.Value & " " & Environ("username") & " " & Format(Now, "DD/MM/YYYY HH:MM:SS")
End If
End If
Cellule.Comment.Shape.TextFrame.AutoSize = True
Next Cellule
End If
End Sub