Option Explicit
Private Temps As Date
Sub Proc()
Temps = 0
Application.EnableEvents = False
Feuil1.[A1:C1].Value = Empty
Application.EnableEvents = True
Application.Goto Feuil1.[A1]
Planifier
End Sub
Sub Planifier()
If Temps <> 0 Then Exit Sub
Temps = Now + TimeSerial(0, 0, 30)
Application.OnTime Temps, "Proc"
End Sub
Sub Déplanifier()
If Temps = 0 Then Exit Sub
Application.OnTime Temps, "Proc", Schedule:=False
Temps = 0
End Sub