Démmarer et arreter le clignetement d'une cellule automatiquement sous conditions

Option Explicit

Private Sub Worksheet_Activate()
Test
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Test
End Sub

Private Sub Test()
If Me.[N13].Value <= Date Then LancerClign Else StopperClign
End Sub

Option Explicit
Private Temps As Date, Top As Boolean
Sub LancerClign()
If Temps = 0 Then Clignottement
End Sub
Sub StopperClign()
If Temps = 0 Then Exit Sub
With Feuil1.[S13]: .Interior.Color = &HFFA5&: .Font.Color = 0: End With
Application.OnTime Temps, "Clignottement", Schedule:=False
Temps = 0
End Sub
Sub Clignottement()
With Feuil1.[S13]: .Interior.Color = IIf(Top, &HFFFF&, &HFF&)
   .Font.Color = IIf(Top, &HFF&, &HFFFF&): End With
Top = Not Top
Temps = Now + TimeSerial(0, 0, 1)
Application.OnTime Temps, "Clignottement"
End Sub