Sub Imprimer_Devis()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Set Ws1 = Sheets("Devis")
Set Ws2 = Sheets("Tarifs")
pass = Array(1, 2, 1, 2, 3, 2)
For i = 0 To 5
Ws1.Select
Ws1.Range("A1:F49").Select
ActiveWindow.SelectedSheets.PrintOut From:=pass(i), To:=pass(i), Copies:=1, Collate:=True
MsgBox "Attendre,retourner la page puis la replacer dans le chargeur "
Ws2.Select
Ws2.Range("A1:AY49").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Next
Set Ws1 = Nothing
Set Ws2 = Nothing
End Sub