Macro pour mise en forme sur classeur entier

Bonjour à tous,

J'éspère que meme en periode de fete, quelqu'un pourra m'aider.

J'aurai besoin, avant d'imprimer un classeur entier, de mettre en forme toutes les feuilles contenues dans le classeur (cacher des colonnes, ajuster la print area, etc).

Voici ma formule (désolé je suis débutant) :

ActiveWorkbook.Worksheets.Select

For Each xWorksheet In ActiveWorkbook.Worksheets
Range("G:G,I:I,J:J,M:M").Select
Range("M1").Activate
Selection.EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = "$B$1:$L$59"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$B$1:$L$59"
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 55
End With
Next xWorksheet

Est-ce que quelq'un peut m'aider ?

Merci d'avance.