En transformant votre fichier en .xlsm et en ajoutant l'événement Worksheet_Change dans l'onglet Feuil1, on vérifie que l'heure de fin est inférieure à l'heure début signifiant implicitement qu'on est passé au jour suivant.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns(5)) Is Nothing Then
If Target.Value < Target.Offset(0, -2).Value Then
Cells(Target.Row + 1, 1) = Cells(Target.Row, 1) + 1
End If
End If
End Sub