Option Explicit
Dim Temps As Date
Sub FaireClignoterLesFlèches()
AssumerClignotement
End Sub
Sub ArrêterLesClignotements()
Application.OnTime Temps, "AssumerClignotement", Schedule:=False
Feuil1.Shapes("Flèche gauche 1").Visible = True
Feuil1.Shapes("Flèche gauche 2").Visible = True
End Sub
Sub AssumerClignotement()
Feuil1.Shapes("Flèche gauche 1").Visible = Not Feuil1.Shapes("Flèche gauche 1").Visible
Feuil1.Shapes("Flèche gauche 2").Visible = Not Feuil1.Shapes("Flèche gauche 2").Visible
Temps = Now + TimeSerial(0, 0, 1)
Application.OnTime Temps, "AssumerClignotement"
End Sub