Salut,
Si je t’ai bien compris, tu voudrais que tes 6 colonnes s’impriment sur une seule feuille.
Le passage ci-dessous – rajouté à ta macro ‘Extraction’ - devrait faire l’affaire.
' Mise en page des marges
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.2)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0.3)
.BottomMargin = Application.InchesToPoints(0.2)
.HeaderMargin = Application.InchesToPoints(0.1)
.FooterMargin = Application.InchesToPoints(0.1)
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.PrintCommunication = True
Cordialement.