Faire Clignoter une Cellule Excel

Bonjour,

J'ai récupéré une macro pour faire clignoter une cellule excel en essayant de la modifier un peu mais je ne m'en sors pas.

Je souhaite faire clignoter la cellule N7 en fonction d'un calcul en P6.

Le problème est que la cellule N7 clignote sans cesse quel que soit le résultat en P6

Y a t'il une âme charitable pour m'aider?

Voici ce que j'ai:

Dans Modules:

Option Explicit

Dim Temps As Variant

Public Sub Clign()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:02")
Application.OnTime Temps, "Clign"
'Affiche l'alerte ou la fait disparaître (alternativement)
With ThisWorkbook
'Fond
With .Sheets("Articles").Range("N7")
.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
'Fond
.Sheets("Articles").Range("N7").Interior.ColorIndex = xlNone

End With
End Sub



et dans This Workbook:




Option Explicit

Private Sub Workbook_Open()
'Lance le clignotement à l'ouverture si la cellule P6 est non vide
If "P6" <> "" Then Clign

End Sub

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

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim F As Worksheet
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Sh.Range("P6")) Is Nothing Then

'Lance ou stoppe le clignotement
If "P6" <> "" Then Clign Else StopClign
End If
End Sub

Merci pour votre aide