Macros ne fonctinne pas ???

Worksheet = Workbook.Worksheet( "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre").Select
With ActiveWorksheets.PageSetup

With Sheets(Array("Janvier", "Février", "Mars", "Avril","Mai"))

With Sheets(Array("Janvier", "Février", "Mars", "Avril")).PageSetup

.LeftMargin = Application.InchesToPoints(0.590551181102362)
.RightMargin = Application.InchesToPoints(0.590551181102362)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintQuality = 300
.Orientation = xlLandscape
.Order = xlDownThenOver

End With

[COLOR=blue]Option Explicit[/COLOR] 
[COLOR=blue]Sub[/COLOR] SetupAllSheets() 
     [COLOR=darkgreen]'[/COLOR]
    [COLOR=blue]Dim[/COLOR] M [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR], N [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR], Firstsht [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR], Lastsht [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR], Sheet [COLOR=blue]As[/COLOR] [COLOR=blue]Object[/COLOR] 
     [COLOR=darkgreen]'[/COLOR]
    Lastsht = Sheets.Count 
    M = 0: N = Lastsht 
     [COLOR=darkgreen]'[/COLOR]
    [COLOR=blue]For Each[/COLOR] Sheet [COLOR=blue]In[/COLOR] Sheets 
        [COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] Sheet.Visible [COLOR=blue]Then[/COLOR] N = N - 1 
        [COLOR=blue]If[/COLOR] Sheet.Visible [COLOR=blue]And[/COLOR] Sheet.Type = xlWorksheet [COLOR=blue]Then[/COLOR] 
            [COLOR=blue]If[/COLOR] WorksheetFunction.CountA(Sheet.UsedRange) = 0 [COLOR=blue]Then[/COLOR] 
                N = N - 1 
            [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
        [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
    [COLOR=blue]Next[/COLOR] 
     [COLOR=darkgreen]'[/COLOR]
    [COLOR=blue]For[/COLOR] Firstsht = 1 [COLOR=blue]To[/COLOR] Lastsht 
         [COLOR=darkgreen]'[/COLOR]
        [COLOR=blue]If[/COLOR] Sheets(Firstsht).Visible = [COLOR=blue]True[/COLOR] [COLOR=blue]Then[/COLOR] 
             [COLOR=darkgreen]'[/COLOR]
            [COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] TypeName(Sheets(Firstsht)) = "Chart" [COLOR=blue]Then[/COLOR] 
                [COLOR=blue]If[/COLOR] WorksheetFunction.CountA(Sheets(Firstsht).UsedRange) <> 0 [COLOR=blue]Then[/COLOR] 
                    M = M + 1 
                    GoSub DoPrint 
                [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
            [COLOR=blue]Else[/COLOR] [COLOR=darkgreen]'else it's a chart[/COLOR]
                M = M + 1 
                GoSub DoPrint 
            [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
             [COLOR=darkgreen]'[/COLOR]
        [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
         [COLOR=darkgreen]'[/COLOR]
    [COLOR=blue]Next[/COLOR] [COLOR=darkgreen]'Firstsht[/COLOR]
    Exit [COLOR=blue]Sub[/COLOR] 
DoPrint: 
    [COLOR=blue]With[/COLOR] Sheets(Firstsht).PageSetup 
        .LeftHeader = "" 
        .CenterHeader = "" 
        .RightHeader = "" 
        .LeftFooter = "" 
        .CenterFooter = "" 
        .RightFooter = "" 
        .LeftMargin = Application.InchesToPoints(0.15748031496063) 
        .RightMargin = Application.InchesToPoints(0.15748031496063) 
        .TopMargin = Application.InchesToPoints(0.78740157480315) 
        .BottomMargin = Application.InchesToPoints(0.78740157480315) 
        .HeaderMargin = Application.InchesToPoints(0.31496062992126) 
        .FooterMargin = Application.InchesToPoints(0.31496062992126) 
        .PrintHeadings = [COLOR=blue]False[/COLOR] 
        .PrintGridlines = [COLOR=blue]False[/COLOR] 
        .PrintComments = xlPrintNoComments 
        .PrintQuality = 600 
        .CenterHorizontally = [COLOR=blue]False[/COLOR] 
        .CenterVertically = [COLOR=blue]False[/COLOR] 
        .Orientation = xlLandscape 
        .Draft = [COLOR=blue]False[/COLOR] 
        .PaperSize = xlPaperA4 
        .FirstPageNumber = xlAutomatic 
        .Order = xlDownThenOver 
        .BlackAndWhite = [COLOR=blue]False[/COLOR] 
        .Zoom = [COLOR=blue]False[/COLOR] 
        .FitToPagesWide = 1 
        .FitToPagesTall = [COLOR=blue]False[/COLOR] 
        .PrintErrors = xlPrintErrorsDisplayed 
    [COLOR=blue]End With[/COLOR] 
    [COLOR=blue]With[/COLOR] Application 
        .EnableEvents = [COLOR=blue]False[/COLOR] 
         [COLOR=darkgreen]'        Sheets(Firstsht).PrintPreview '.PrintOut[/COLOR]
        .EnableEvents = [COLOR=blue]True[/COLOR] 
    [COLOR=blue]End With[/COLOR] 
Return 
[COLOR=blue]End Sub
[/COLOR]