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