Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Integer
Dim horaire As Date
Dim total As Date
horaire = Sheets("recap").Range("a1").Value
c = Sheets("janvier").Range("F65536").End(xlUp).Row
If c = 7 Then
Exit Sub
End If
For A = 8 To c
total = Range("f" & A)
If total >= horaire Then
Range("I" & A).Value = total - horaire
Range("J" & A) = "00:00:00"
End If
If total < horaire Then
Range("I" & A).Value = horaire - total
Range("J" & A) = "00:00:00"
End If
Next
End Sub