Sub MajH()
Dim Decompte As Variant
Dim d As Variant
d = CDate(UserForm2.Label1.Caption)
Decompte = CDate(d - CDate("00:00:01"))
UserForm2.Label1.Caption = CStr(Decompte)
Select Case Decompte
Case Is = "00:01:00"
MsgBox "Si simple avec un fichier", vbInformation, fhoest
Case Is = 0
StopChrono
Sheets("feuil2").Select
UserForm2.Label1.Caption = "00:01:30"
Chrono
Case Else:
Call Chrono
End Select
End Sub