Sub parcFeuille()
Dim x
Dim i As Integer
Dim Pause As Double
Pause = 5 'Pause en seconde '<-----***** 5 secs pour teste
For i = 3 To ThisWorkbook.Worksheets.Count
Worksheets(i).Select 'Selection feuille
x = Timer
While Timer - x < Pause 'la pause
DoEvents '<----arret de la macro
Wend
Next i
End sub