Private Sub CommandButton2_Click()
Dim copies, Sh As Object, vis%
copies = Abs(Val(InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée...")))
If copies = 0 Then Exit Sub
For Each Sh In Sheets(Array(5, 3))
vis = Sh.Visible
Sh.Visible = xlSheetVisible
Sh.PrintOut copies:=copies
Sh.Visible = vis 'état initial
Next
End Sub