Faire clignoter une cellule

Bsr les amis..

jai un souci,

Quelqu'un peut me dire comment je peux faire pour faire clignoter une cellule lorsque qu'une condition est remplie?

Bonjour

Inspire-toi de ça, déjà passé sur le forum :

Dim vNow As Variant
Sub Eclairage()
    vNow = Now + TimeValue("00:00:01")
        If Range("A1") < Date Then
            If Range("A1").Interior.ColorIndex = 4 Then
                Range("A1").Interior.ColorIndex = 3
            Else
                Range("A1").Interior.ColorIndex = 4
            End If
        End If
    Application.OnTime vNow, "Eclairage"
End Sub

Bye !

MERCI BEAUCOUP