Sub Run()
Application.OnTime Now + TimeValue("00:00:10"), "Refresh"
Application.OnTime Now + TimeValue("00:01:00"), "Save"
Application.OnTime Now + TimeValue("00:01:10"), "Boucle"
End Sub
------------------------------------------------------
Sub Boucle()
Application.Run ("Run")
End Sub