Exécution macro à la fermeture de Excel

Bonjour,

J'ai créé une macro pour qu'une cellule puisse clignoter à l'ouverture d'Excel.
Sauf que si j'ai 2 fichiers Excel d'ouvert, celui où la macro est enregistré se ferme et se réouvre tout seul tant que je ne ferme pas tous les fichiers Excel ouverts.
La macro est la suivante :

Dim t As Integer

Dim temps

Sub clignote()
If t = 0 Then
Range("J3").Interior.ColorIndex = 6
t = 1
Else
Range("J3").Interior.ColorIndex = 2
t = 0
End If
temps = Now + TimeValue("00:00:01")
Application.OnTime EarliestTime:=temps, Procedure:="clignote"
End Sub
Sub clignote_pas()
Application.OnTime EarliestTime:=temps, Procedure:="clignote", Schedule:=False
End Sub

Et celle que j'ai mis dans Thisworkbook :

Private Sub ThisWorkbook_Open()

Application.Run ("clignote")

End Sub

Merci pour votre aide.