Arrêter une macro en quittant une cellule

Bonsoir la team,

Je me suis "amusé" à faire exécuter une macro, faisant clignoter une cellule, lors d'un appui sur bouton (code récupéré et adapté depuis Google).

Cependant, malgré des dizaines de tentatives, il m'est impossible de trouver l'astuce pour arrêter ledit clignotement.

J'avais pensé trouver la solution avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call ArrêtEclairage
End Sub

Mais forcément, je me suis rendu très vite compte que dès que je clique sur une cellule, j'ai un message d'erreur (Erreur d'exécution '1004')

Voici le code du clignotement, lancé par l'appui bouton :

Dim vNow As Variant
Sub Eclairage()

    vNow = Now + TimeValue("00:00:02")
        If Range("A3:J3").Select Then
            If Range("A3:J3").Interior.ColorIndex = 48 Then '4
                Range("A3:J3").Interior.ColorIndex = 0 '3
            Else
                Range("A3:J3").Interior.ColorIndex = 48 '4
            End If
        End If
    Application.OnTime vNow, "Eclairage"
         
End Sub

Et bien sûr, je vous joins mon fichier :
https://www.cjoint.com/c/KEBu5H8aE6D

Bonne soirée à vous et merci d'avoir déjà lu mon sujet :-)



--
Pensez au "merci" et au "résolu" quand le sujet l'est.