Ajuster la feuille au format de l'écran

Bonjour à tous,

J'ai mis en place un fichier excel que j'actualise tous les jours via un import, et qui nous sert d'écran de contrôle.

On l'affiche sur une grande TV disposée sur un pied, au format portrait, car le nombre de lignes est variable, entre 140 et 160.

J'arrive à tout rentrer et rendre ça visible, mais je dois modifier manuellement chaque colonne.

Je ne maîtrise absolument pas le VBA malheureusement. Existe-il une formule VBA que je pourrais intégrer, pour adapter automatiquement la feuille à l'écran ?

Mon fichier a une Range de A : W, et il faudrait afficher jusqu'à la dernière ligne de celui-ci.

Merci beaucoup pour votre aide!

Bonne journée,

Bonjour

voir classeur

Private Sub Workbook_Open()         'A l'ouverture du classeur
 ActiveSheet.Columns("a:w").AutoFit 'largeur automatique des colonnes
 Range("a1:w160").Activate          'selection de la plage à zoomer
 ActiveWindow.Zoom = True           'zomm sur la plage
 Range("a1").Select                 'selection de la première cellule
End Sub