Passer d'une feuille à l'autre toutes les 10secondes.

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