Boucle 10 fois toutes les secondes puis fin

Bonjour,

Je galère un max avec une petite appli en VBA excel

Le but du jeu est de lancer un "chronomètre" : mettre en transparent une cellule toutes les secondes pendant 10 secondes puis arrêter.

Avec la fonction application.wait il me bloque excel alors que j'ai besoin d'accéder à la feuille pendant ce temps là...

Avec Application.ontime je ne parviens pas à maîtriser la boucle.

J'ai essayé avec

for i = 1 to 10
Application.OnTime Now + TimeValue('00:00:01'), "ma macro"
Next

Mais il le fait une fois pour les 10 cellules en 1 seconde...

J'ai essayé plein d'autres méthodes, et comme d'hab, après des heures de lutte, je rends les armes et m'en remets à vous !

Code complet :

Sub chrono()
For i = 1 To 10
Application.OnTime Now + TimeValue("00:00:01"), "chrono_color"
Next
End Sub

Sub chrono_color()
' La cellule est sélectionnée dans une macro précédente
ActiveCell.Select

With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Offset(0, 1).Select
End Sub

Merci pour votre précieuse aide !!!