Microsoft 365 Macro qui écrit tout les "X temps"

Dim NextTime As Date

Sub StartTimer()
    ' Définir l'heure de la prochaine exécution
    NextTime = Now + TimeValue("00:02:00") 'pour 10 secondes mettre("00:00:10")
    ' Configurer l'événement OnTime pour appeler la macro "AfficherA"
    Application.OnTime NextTime, "AfficherA"
End Sub

Sub AfficherA()
    ' Afficher la lettre "a" dans la cellule A1
    Sheets("Feuil1").Range("A1").Value = "a"
    ' Redémarrer le timer
    StartTimer
End Sub

Sub StopTimer()
    ' Arrêter le timer
    On Error Resume Next
    Application.OnTime NextTime, "AfficherA", , False
End Sub