Limiter l'affichage dans une feuille

    'Masquer les colonnes et les lignes superflues.
    Range(Columns("G"), Columns("G").End(xlToRight)).EntireColumn.Hidden = True
    Range(Rows("11"), Rows("11").End(xlDown)).EntireRow.Hidden = True

   'Virer les attirbuts inutiles.
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False

    Application.ScreenUpdating = False
      Feuil1.Activate
     
      'Zoom sur la zone A1:F10, de sorte qu'elle prenne toute la taille dispo
      Feuil1.Range("A1:F10").Select
      ActiveWindow.Zoom = True

      'Empêcher le scroll vertical en dehors de cette zone
      Feuil1.ScrollArea = "A1:F1"

      Range("A1").Select
    Application.ScreenUpdating = False

Private Sub Workbook_Open()
    With Sheets("Feuil1")
        ActiveWindow.DisplayHeadings = False
        ActiveWindow.DisplayHorizontalScrollBar = False
        ActiveWindow.DisplayVerticalScrollBar = False
        Application.ScreenUpdating = False
        .ScrollArea = "A1:I1"
        .Range("A20").Select
        Application.ScreenUpdating = True
    End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    y = Sh.Name <> "Feuil1"
    ActiveWindow.DisplayHeadings = y
    ActiveWindow.DisplayHorizontalScrollBar = y
    ActiveWindow.DisplayVerticalScrollBar = y
End Sub