Bonjour,

Tout est dans l'intitulé.
La zone de sélection est bonne car le résultat s'affiche, mais sur 2 pages.
Quelque chose m'échappe.
Merci d'avance pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub Print_Feuil_Synth_Selection_Multiple()
    With ActiveSheet.PageSetup
        .PrintArea = [Plage_Impression_Multiple]
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 2
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub
[Plage_Impression_Multiple] est le nom que j'ai donné à une cellule qui contient :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=ADRESSE(1;1)&":"&ADRESSE($AN$2+4;COLONNE(AJ1))&","&ADRESSE(3;COLONNE($AN$4))&":"&ADRESSE(($AN$2+4);COLONNE($AP$4))
jpma75