Option Explicit
Private Sub UserForm_Initialize()
Userform1_heure
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Application.OnTime EarliestTime:=Userform1_next, Procedure:="Userform1_heure", Schedule:=False
End Sub