Sub Tourne()
NbSecondesAttente = 1 ' Temps d'affichage d'une feuille en secondes
nbfeuilles = ActiveWorkbook.Sheets.Count
Encore:
For F = 1 To nbfeuilles
If Fin = 1 Then Exit Sub
Sheets(F).Activate
Application.Wait Time + TimeSerial(0, 0, NbSecondesAttente)
Next F
GoTo Encore
End Sub