XL 2016 Affichage feuille dans excel

Private Sub Worksheet_Activate()
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveWindow.DisplayHeadings = False
Range("A:t").Select 'adapter à l'écran à préciser
ActiveWindow.Zoom = True
    Range("k1").Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Sub A_Zoom_Auto_Tableau()
Dl = Cells(1, 1).SpecialCells(xlLastCell).Row
DC = Cells(1, 1).SpecialCells(xlLastCell).Column
For i = 1 To DC
scl = scl + Cells(1, i).Columns.ColumnWidth
Next
scl = scl
'MsgBox scl
For i = 1 To Dl
slh = slh + Cells(i, 1).Rows.RowHeight
Next
ActiveWindow.Zoom = 100 / scl * 255
End Sub

Private Sub Worksheet_Activate()
 Application.ScreenUpdating = False
 Range("e5:s18").Select 'ici tu selectionne la plage que tu veux elle sera zommée pour remplir tout l'ecran quelque se soit la resolution de ton ecran
ActiveWindow.ScrollColumn = Selection.Column
 ActiveWindow.ScrollRow = Selection.Row
  ActiveWindow.Zoom = True
 Range("e1").Select
 Application.ScreenUpdating = True
 End Sub

Private Sub Worksheet_Activate()
Dim dercol%, colvar%, cw&
dercol = 21 'colonne U, dernière colonne à cadrer
colvar = 19 'colonne S de largeur ajustable
ActiveWindow.Zoom = 100
Application.ScreenUpdating = False
Columns(colvar).ColumnWidth = 10
If ActiveWindow.VisibleRange.Columns.Count < dercol Then MsgBox "Réduisez les largeurs des colonnes": Exit Sub
For cw = 100 To 2550
    Columns(colvar).ColumnWidth = cw / 10
    If ActiveWindow.VisibleRange.Columns.Count <= dercol Then Exit Sub
Next
End Sub