Private Sub ValidImpression_Click()
ValidImp
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
If CheckBox3.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=10, To:=12, Copies:=1, Collate:=True
End If
If CheckBox1.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=6, To:=7, Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut From:=9, To:=9, Copies:=1, Collate:=True
End If
If CheckBox2.Value = True Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=5, Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut From:=8, To:=8, Copies:=1, Collate:=True
End If
End If
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
Sheets("bdd").Select
End Sub