mise en forme feuille excel

[Oliv]

Bonjour à tous,

J'ai un problème avec la mise en page de plusieurs feuilles excel en format paysage.
Je veux créer une macro qui transforme la mise en page des feuilles qui ont un format portrait en un format paysage et quand j'execute la macro, le traitement est très long.
J'aimerais bien savoir s'il y a un autre code VBA que celui que j'utilise:

With ActiveSheet.PageSetup
.PrintTitleRows = '$6:$6'
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = ''
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 70
.PrintErrors = xlPrintErrorsDisplayed
End With


Merci à tous