Private Sub CommandButton1_Click()
For i = 0 To IMPRIMER.ListBox1.ListCount - 1
If IMPRIMER.ListBox1.Selected(i) = True Then
Sheets(ListBox1.List(i)).Select Replace:=False
End If
Next i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
IMPRIMER.Hide
End Sub