Réinitialisation d'un petit tableau

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
   Application.EnableEvents = False
   Me.[C1].Value = Empty
   Application.EnableEvents = True
ElseIf Target.Address = "$C$1" Then
   Application.EnableEvents = False
   Me.[B1].Value = Empty
   Application.EnableEvents = True
Else: Exit Sub: End If
Déplanifier
Planifier
End Sub

Private Sub Workbook_Open()
Planifier
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Déplanifier
End Sub