J'ai peut-être ça....
Sub Impression ()
Sheets("DOC-1").PrintOut Copies:=1
Sheets("DOC-2").PrintOut Copies:=1
MsgBox " Merci d'insérer la feuille qui s'imprime actuellement, pour l'impression du verso "
If MsgBox1 = True Then
GoTo 10
End If
MsgBox " Pour imprimer, cliquer sur OK"
If MsgBox2 = True Then
GoTo 10
End If
Sheets("DOC-2").PrintOut Copies:=1
Exit Sub
10 MsgBox " Merci de saisir l'ensemble des données, avant de sauvegarder... "
End Sub
Mais, je n'ai pas contrôlé....
A suivre...
A Bientôt,
William