Private Sub CommandButton1_Click() 'bouton imprimer
Dim i%, x%, zone$
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
zone = zone & ListBox2.List(i, 1) & ","
End If
Next
zone = Left(zone, Len(zone) - 1)
Me.Hide
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
With Sheets(ListBox1.List(i))
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = zone
'.PrintOut ' à décocher pour imprimer
.PrintPreview ' à cocher pour imprimer
End With
End If
Next
Me.Show
End Sub