CELLULE CLIGNOTANTE

bonjour,

ce sujet a déja été traiter, mais il me pose problème.
je veux faire clignoter des cellules de mon tableau. pour cela j'ai retenu dans differents sujet le code suivant:
CODE: TOUT SÉLECTIONNER
Option Explicit
Dim vNow As Variant
Public Sub Eclairage()
vNow = Now + TimeValue("00:00:01")
Application.OnTime vNow, "Eclairage"
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1 - [VarEclairage]
End Sub
Public Sub ArrêtEclairage()
Application.OnTime EarliestTime:=vNow, _
Procedure:="Eclairage", Schedule:=False
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1
End Sub


seulement je bug tout le temps (erreur 13)
le problème à l'air de ce trouver a la ligne:
CODE: TOUT SÉLECTIONNER
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1 - [VarEclairage]

pouvez vous m'aider svp?
ci-joint une copie de mon tableau