Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
' macro enregistré par Excel-lent
Dim TotalPériode As Integer
Dim ReportHeures As Integer
If Target.Column = 1 And Target.Row = 6 Then
ReportHeures = Range("A6")
TotalPériode = Range("H6")
Range("H6") = TotalPériode + ReportHeures
If Range("H6") < 0 Then
Range("A6") = ReportHeures + TotalPériode
End If
End If
End Sub