Sub Prompteur1()
For i = 1 To 10 Step 1
Application.OnTime Now + TimeValue("00:00:" & i), "Defile"
Next i
End Sub
Sub Defile()
ActiveWindow.SmallScroll Down:=1
End Sub
Sub Prompteur2()
For i = 1 To 100
Defile
For j = 1 To 10000000
Next j
Next i
End Sub