If fin_chrono = 0 Then
fin_chrono = 1
Checkbox1 = 1
ElseIf fin_chrono = 1 Then
Checkbox1 = 0
fin_chrono = 0
DepartPause = [now()]
Do While fin_chrono = 0
Temps = [now()] - DepartPause
If Checkbox1 = True Then
Label1.Caption = WorksheetFunction.Text(Temps, "hh:mm:ss:00")
Else
Label1.Caption = WorksheetFunction.Text(Temps, "hh:mm:ss.00")
End If
DoEvents
Loop
0
End If