Option Explicit
Private Cellules As Range, Temps As Date, Bascule As Boolean
Sub FaireClignoter(ByVal Cel As Range)
If Temps = 0 Then
Set Cellules = Cel
Clignoter
Else
Set Cellules = Union(Cellules, Cel)
End If
End Sub
Sub Clignoter()
Bascule = Not Bascule
Cellules.Interior.ColorIndex = IIf(Bascule, 3, 2)
Temps = Now + TimeSerial(0, 0, 1)
Application.OnTime Temps, "Clignoter"
End Sub
Sub ArrêtClignotements()
If Temps = 0 Then Exit Sub
Application.OnTime Temps, "Clignoter", Schedule:=False
Temps = 0
Cellules.Interior.ColorIndex = 2
Set Cellules = Nothing
Bascule = False
End Sub