Meci de t' interrser au problème :
Voici le code en programmation VBA Exel :
Dim cpt as integer
cpt = 1
Do
DoEvents
Application.OnTime TimeValue("00:00:03" ), "A" 'Adresse bidon
Range("A1" ).Interior.ColorIndex = 1
Application.OnTime TimeValue("00:00:03" ), "A"
Range("A1" ).Interior.ColorIndex = 2
Loop until cpt = 0
'Faire clignoter la cellule A1, sans pour cela gêner l' utilisateur.
Sub ess ()
Application.onkey"{Enter}", "Tab" 'Envoie à une macro qui permet de changer de feuille.
End Sub
Lorsque j' appuie sur entré une fois la macro lançée, il n' y a rien qui se passe.