Sub Choix()
Call Imprime(2, Sheets("1").Range("B20"))
Call Imprime(2, Sheets("2").Range("B22"))
Call Imprime(1)
End Sub
Private Sub Imprime(nbExemplaires As Integer, Optional Test As Range)
If Not IsMissing(Test) Then
ActiveWindow.SelectedSheets.PrintOut Copies:=nbExemplaires, Collate:=True
ElseIf Test.Value = "x" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=nbExemplaires, Collate:=True
End If
End Sub