Sub Bouton1_QuandClic()
Dim c As Integer
Dim temps As Date
c = 1
Do While temps < '01:00:00'
temps = temps + Cells(c, 7)
If temps > '01:00:00' Then
Cells(c, 8) = ''
MsgBox 'Il reste : ' & CDate(TimeValue(temps) - TimeValue('01:00:00')) & ' à facturer.'
Else
Cells(c, 8) = ''
End If
c = c + 1
Loop
End Sub