Microsoft 365 ScrollArea

Option Explicit
Private Sub Workbook_Open()
Worksheets("Feuil1").ScrollArea = "A1:R27"
End Sub

Private Sub Workbook_Open()
    Application.WindowState = xlMaximized ' Ouvre le Classeur en grand
        Select_avec_Nom_Feuille_du_Classeur ' Exécute le modules "Module1" au démarage
            ActiveWindow.DisplayHorizontalScrollBar = False ' Désactive le scroollbar horizontal
            ActiveWindow.DisplayVerticalScrollBar = False ' Désactive le scroollbar vertical
End Sub