Sub ImpressionDeuxPages()
Imprimer "$A:$R", 1 'ou 2 pages en largeur ???
End Sub
Sub ImpressionPageGauche()
Imprimer "$A:$I", 1 '1 page en largeur
End Sub
Sub ImpressionPageDroite()
Imprimer "J:$R", 1 '1 page en largeur
End Sub
Sub Imprimer(zone As String, n)
Dim F As Object, w As Worksheet
Set F = ActiveSheet
For Each w In Worksheets
If LCase(w.Name) Like "devis*" Then
With w.PageSetup
.PrintArea = zone
.Zoom = False
.FitToPagesWide = n 'n pages en largeur
.FitToPagesTall = 1
End With
'w.PrintPreview 'pour tester
w.PrintOut 'pour imprimer
End If
Next
F.Activate
End Sub