Déplacer automatiquement 2 objets

Bonjour à tous

J’ai 2 objets qui se déplacent automatiquement sur la feuille et qui sont
toujours sur la deuxième ligne.

Le premier objet permet un retour rapide à un menu le deuxieme est une
flèche auquel j’ai affecté la macro « BAS »
Comment modifier la macro BAS qui est sensée faire une page down.

Les 2 macros sont :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range(ActiveWindow.VisibleRange.Address).Offset(1)
ActiveSheet.Shapes("Image 2").Left = Rg.Left
ActiveSheet.Shapes("Image 2").Top = Rg.Top
Set Rg = Range(ActiveWindow.VisibleRange.Address).Offset(1, 1)
ActiveSheet.Shapes("Trait 4").Left = Rg.Left
ActiveSheet.Shapes("Trait 4").Top = Rg.Top
Set Rg = Nothing
End Sub

Sub BAS()
ActiveWindow.LargeScroll Down:=1
End Sub

Bien Amicalement

Jean-Paul V