XL 2010 fond cellule clignotant → ajout paramètre police

[DAVAWAY]

Bonjour,
Pourriez vous m'apporter une aide sur la ligne de code que je ne parviens pas à compléter malgré mes tentatives.
La cellule "E6" clignote en rouge mais la valeur inscrite qui est transparente apparait à ce moment.
Je souhaite que lorsque la cellule clignote en rouge, que la police soit également basculée en rouge mais pour l'heure sans succès _ merci pour votre aide :

Option Explicit

Dim Temps As Variant
Public Sub Clign()
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
With ThisWorkbook
'Fond
With .Sheets("Synthèse").Range("E6")
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, xlNone, 3)
.Selection.Font = IIf(Color = -16776961, TintAndShade = 0)
End With
End With
End Sub

Public Sub StopClign()
On Error Resume Next
Application.OnTime Temps, "Clign", , False
On Error GoTo 0
With ThisWorkbook
'Fond
.Sheets("Synthèse").Range("E6").Interior.ColorIndex = xlNone
End With
End Sub

 

[DAVAWAY]

Bonsoir Lone-wolf, je suis avec la petite famille et prend connaissance de ta réponse dès demain matin, encore merci, bonne soirée ^^

 

[DAVAWAY]

Bonjour Lone-wolf, je te remercie ton code est impressionnant. J'ai pu dupliquer à 21 cellules d'alerte celui-ci. Cela prend un certain délai pour l'exécution. Peut on mettre en pause le diagnostic, ma fonction stopclign n'est plus du tout adaptée pourrais tu réécrire les lignes inappropriées ? Elle est active mais n'interrompt pas l'exécution de "Clign" merci d'avance et bonne journée,

Option Explicit

Dim Temps As Variant

Public Sub StopClign()
On Error Resume Next
Application.OnTime Temps, "Clign", , False
On Error GoTo 0
With ThisWorkbook
'Fond
.Sheets("Synthèse").Range("E6:E8,E11:E17,E20,E23:E24,E27:E28,E31:E32,E35:E36,E39,E42").Interior.ColorIndex = xlNone
End With
End Sub