XL 2021 A l'ouverture de la feuille, aller en bas du tableau

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim visibleRows As Long
    
    visibleRows = 3 ' Nombre de lignes visibles souhaité
    
    ' Parcourt toutes les feuilles du classeur
    For Each ws In ThisWorkbook.Worksheets
        ' Active la feuille
        ws.Activate
        ' Détermine la dernière ligne non vide dans la colonne A
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        
        ' Vérifie si le tableau a plus de lignes que ce qui est visible
        If lastRow > visibleRows Then
            ' Fait défiler pour afficher les 'visibleRows' dernières lignes
            ws.Cells(lastRow - visibleRows + 1, 1).Select
            ActiveWindow.ScrollRow = lastRow - visibleRows + 1
        Else
            ' Si moins de lignes, afficher depuis la première ligne
            ws.Cells(1, 1).Select
        End If
    Next ws
End Sub

Private Sub Worksheet_Activate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim visibleRows As Long
    Set ws = Worksheets("Liste_Clients")
    visibleRows = 10 ' Nombre de lignes visibles souhaité
    
        ' Active la feuille
        ws.Activate
        ' Détermine la dernière ligne non vide dans la colonne A
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        
        ' Vérifie si le tableau a plus de lignes que ce qui est visible
        If lastRow > visibleRows Then
            ' Fait défiler pour afficher les 'visibleRows' dernières lignes
            ws.Cells(lastRow - visibleRows + 1, 1).Select
            ActiveWindow.ScrollRow = lastRow - visibleRows + 1
        Else
            ' Si moins de lignes, afficher depuis la première ligne
            ws.Cells(1, 1).Select
        End If
End Sub

Private Sub Worksheet_Activate()
    Dim NbLigne As Byte
    NbLigne = 2
    On Error Resume Next
        Application.Goto reference:=Range("A" & Range("A" & Rows.Count).End(xlUp).Row - NbLigne), Scroll:=True
    If Err <> 0 Then
        Application.Goto reference:=Range("A" & Range("A" & Rows.Count).End(xlUp).Row), Scroll:=True
    End If
On Error Goto 0
End Sub