Macro clignote ?

Bonjour j'ai trouvé une macro que j'ai modifiée, elle fonctionne mais j'aimerais que ce soit la couleur de la cellule qui clignote ? merci à vous.

Sub Clignot()
Range("AA2", "AC2").Select

For compteur = 1 To 3
With Selection.Font
.Name = "Arial"
.Size = 12
.ColorIndex = 2
End With
Application.Wait Now + TimeValue("00:00:01")
'Pour augmenter la vitesse du clignotement
'Application.Wait Now + (TimeValue("00:00:01")) / 2

With Selection.Font
.Name = "Arial"
.Size = 12
.ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End Sub

Bonjour,

Je pense que les maitres de ce site feront beaucoup mieux, je te propose cette solution

avec hélas deux boutons. Je pars de la chose suivante faire clignoter une couleur c'est faire passer une cellule d'une couleur à une autre.

Public go As Double

Sub Clignoter_couleur()
    If Range("A1").Interior.ColorIndex = 3 Then
        Range("A1").Interior.ColorIndex = 6
    Else
        Range("A1").Interior.ColorIndex = 3
    End If
    go = Now + TimeValue("00:00:01")

    Application.OnTime go, "Clignoter_couleur", , True
End Sub

Sub stop_Clignoter()
    Range("A1").Interior.ColorIndex = xlAutomatic
    Application.OnTime go, "Clignoter_couleur", , False
End Sub

Amitié

Air_2

Merci.