Public mydate As Date
Sub My_Minuit()
'ta macro de minuit sera exécutée ici le 1er jour du mois à la 1ère seconde
'ici ta macro
mydate = CDate(DateSerial(Year(Date), Month(Date) + 1, 0)) + 1
mydate = mydate + "00:00:01"
MsgBox mydate
Application.OnTime mydate, "My_Minuit"
End Sub
Sub Annule_My_minuit()
Application.OnTime EarliestTime:=mydate, _
Procedure:="My_Minuit", Schedule:=False
End Sub