[XL-2016] Amélioration code impression

Bonsoir,

J'ai mis en place ce code qui me permet d'imprimer le tableau de la feuille active. Il y a un aperçu avant impression, un formatage de la feuille (centrée horizontalement, format paysage, impression sur une feuille)
Je me suis aidé de l'enregistreur de macro pour faire ce code.
Je pense qu'il est possible d'améliorer ce code, mais ça je ne sais pas faire, pourriez-vous m'apporter vos idées s'il vous plait ?

Je vous en remercie par avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub ImpressionFeuille()
Application.ScreenUpdating = False
 
  ActiveSheet.PageSetup.PrintArea = [B5].CurrentRegion.Address 'Imprime à partir de la cellule B5 jusqu'à la dernière ligne saisie
  ActiveWindow.SelectedSheets.PrintPreview 'Aperçu de la zone qui sera imprimée
  With ActiveSheet.PageSetup
        .CenterHorizontally = True 'Centrée horizontalement
        .CenterVertically = False 'Pas centrée verticalement
        .Orientation = xlLandscape 'Format paysage
        .PaperSize = xlPaperA4 'Papier A4
        .Order = xlDownThenOver 'La numérotation et l'impression commencent par la première page,
                                'se poursuivent avec les pages situées à droite, avant de passer à la première page
                                'du dessous suivies des pages situées à sa droite.
        .FitToPagesWide = 1 'Imprime la feuille sur une page en largeur et en hauteur.
        .FitToPagesTall = 1
    End With
    Application.ScreenUpdating = True
End Sub