Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Range("F8:F24,H8:H24"), Target) Is Nothing Then
Cells(Target.Row, 4).Value = IIf(Target.Column = 6, Cells(Target.Row, 4) + Target, Cells(Target.Row, 4) - Target)
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=Target.Comment.Text & _
Target.Value & ":" & Environ("UserName") & " Le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
End Sub