Lenteur exécution VBA Excel

Bonjour,

Soit un tableau dont le nombre de ligne est variable.

J'ai élaboré une macro permettant de mettre en forme les données qu'il contient, de définir la zone d'impression automatiquement et de mettre en forme l'impression (passer de portrait à paysage).

C'est à ce moment de l'exécution de la macro que la lenteur se produit. A mon avis, c'est parce que la mise en forme de l'impression se fait pour tout le fichier excel et pas seulement pour le tableau que j'ai déterminé avant.

Voir ci-dessous l'extrait de ma macro, avec les lignes qui, selon moi, coincent en gras ; par quoi dois-je les remplacer ? Merci d'avance

ActiveSheet.PageSetup.PrintArea = Range("A1", ActiveSheet.Range("I65536").End(xlUp)).Address
With ActiveSheet.PageSetup
.PrintTitleRows = "$5:$5"
.PrintTitleColumns = ""
End With
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
End With
Range("A5").Select