Option Explicit
Private Sub lancer()
'lancera l'activation de la feuille suivante dans 5 secondes
Application.OnTime Now + TimeSerial(0, 0, 5), "activer"
End Sub
Sub activer()
Static i
i = i + 1
If i > ThisWorkbook.Sheets.Count Then i = 1
ThisWorkbook.Sheets(i).Activate
lancer
End Sub
Sub Défile1()
Dim s As Object
For Each s In Sheets
s.Activate
Application.Wait Now + 10 / 86400
Next
End Sub
Sub Défile2()
Dim s As Object, t As Double
For Each s In Sheets
s.Activate
t = Timer
While Timer < t + 10
DoEvents
Wend
Next
End Sub