Comment faire clignoter une cellule excell

Private Sub Workbook_Open()
    'Lance le clignotement  à l'ouverture si la cellule B3 supérieure à 9
    If Val(Sheets(1).Range("F2").Value) >= 5 Then Clign
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Interrompt le clignotement éventuel avant fermeture
    StopClign
End Sub

Option Explicit

Dim Temps As Variant

Public Sub Clign()
    'Programmation de l'évènement toutes les secondes
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "Clign"
    'Affiche l'alerte ou la fait disparaître (alternativement)
    With ThisWorkbook
        With .Sheets("Feuil1").Range("F2")
            .Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, xlNone, 3)
        End With
    End With
End Sub

Public Sub StopClign()
    On Error Resume Next
    'Stoppe la gestion de l'évènement OnTime
    Application.OnTime Temps, "Clign", , False
    On Error GoTo 0
    'Cache l'alerte
    With ThisWorkbook
        .Sheets("Feuil1").Range("F2").Interior.ColorIndex = xlNone
    End With
End Sub

Private Sub Worksheet_Activate()
'Lance le clignotement  à l'ouverture si la cellule B3 supérieure à 9
    If [F2].Value = "" Then Exit Sub
If [F2].Value >= 0.05 Then Clign Else StopClign
End Sub

Private Sub Worksheet_Deactivate()
'Interrompt le clignotement éventuel avant fermeture
   Call StopClign
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union([C2], [E2])) Is Nothing Then
StopClign
If [F2].Value = "" Then Exit Sub
If [F2].Value >= 0.05 Then Clign Else StopClign
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ArretClignotement
End Sub

Private Sub Workbook_Open()
Sheets("Feuil7").Select
Call ArretClignotement
Call CellulesClignotent
End Sub

Private Sub Worksheet_Activate()
Call CellulesClignotent
End Sub

Private Sub Worksheet_Deactivate()
Call ArretClignotement
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call ArretClignotement
Call CellulesClignotent
End Sub

Dim Durée As Date

Public Sub CellulesClignotent()
    Dim c As Range
    For Each c In Range("F2:F100").Cells 'Zone du clignotement
        If c.Interior.ColorIndex = xlNone Then
            If c.Value <> "" And c.Value >= 0.05 Then
                c.Interior.ColorIndex = 3
            Else
                c.Interior.ColorIndex = 0
            End If
        Else
            c.Interior.ColorIndex = 0
        End If
    Next c
    Durée = Now() + TimeValue("00:00:01") 'le temps du clignotement
    Application.OnTime Durée, "CellulesClignotent"
End Sub
Sub ArretClignotement()
On Error Resume Next
    Application.OnTime Durée, "CellulesClignotent", , False
    Range("F2:F100").Interior.ColorIndex = xlNone
End Sub

Private Sub Workbook_Deactivate()
Call ArretClignotement
End Sub 

Private Sub Workbook_Activate()
Call ArretClignotement
Call CellulesClignotent
End Sub

Dim Durée As Date

Public Sub CellulesClignotent()
    Dim c As Range
    For Each c In Range(Range("F2"), Range("F65000").End(xlUp)).Cells 'Zone du clignotement
        If c.Interior.ColorIndex = xlNone Then
            If c.Value <> "" And c.Value >= 0.05 Then
                c.Interior.ColorIndex = 3
            Else
                c.Interior.ColorIndex = 0
            End If
        Else
            c.Interior.ColorIndex = 0
        End If
    Next c
    Durée = Now() + TimeValue("00:00:01") 'le temps du clignotement
    Application.OnTime Durée, "CellulesClignotent"
End Sub
Sub ArretClignotement()
On Error Resume Next
    Application.OnTime Durée, "CellulesClignotent", , False
    Range(Range("F2"), Range("F65000").End(xlUp)).Interior.ColorIndex = xlNone
End Sub

On Error Resume Next