Bonjour à tous,

Je rencontre un petit problème avec ma macro me permettant de mettre toutes les colonnes sur une page pour l'impression.
Je l'ai fais de façon à ce que cela s'applique à tous les onglets du classeur mais le problème est que le dernier onglet n'est pas affecté par la macro :/

VOila la macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Private Sub CommandButton5_Click()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
    With s.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    'End With
    Application.PrintCommunication = True
'    s.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    'With s.PageSetup
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 0
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
    End With
 
Next
 
End Sub