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