VBA-fonction molette

Option Explicit

Sub Test()
    Range("BK3").Select
    ActiveWindow.SmallScroll Down:=567
   If Application.Wait(Now + TimeValue("0:00:02")) Then Range("BK3").Select
End Sub

Sub descendre()
Do While ActiveWindow.ScrollRow < 590
        ActiveWindow.SmallScroll Down:=4
        t = Timer + 0.001
        Do While Timer < t: DoEvents: Loop
    Loop
                        
    Do While ActiveWindow.ScrollRow < 600
        ActiveWindow.SmallScroll Down:=1
        t = Timer + 0.04
        Do While Timer < t: DoEvents: Loop
    Loop
 If Application.Wait(Now + TimeValue("0:00:03")) Then Call remonte
End Sub
 
Sub remonte()
Do While ActiveWindow.ScrollRow > 10
        ActiveWindow.SmallScroll Down:=-4
        t = Timer + 0.001
        Do While Timer < t: DoEvents: Loop
    Loop
                        
    Do While ActiveWindow.ScrollRow > 1
        ActiveWindow.SmallScroll Down:=-1
        t = Timer + 0.04
        Do While Timer < t: DoEvents: Loop
    Loop
End Sub