Impression recto verso sur

[Saltimbanque]

Bonjour à tous,

J'ai lu bien des choses sur l'impression recto/verso mais rien que je trouve simple à mettre en œuvre à mon petit niveau.
Voila, J'ai crée un document don le recto et le verso son différents et tiennent sur un A4, j'ai sélectionné ma zone d'impression pour le recto et j'ai ajouté à la zone le verso qui ce trouve plus bas dans la même feuille.
Je souhaite imprimer le tout via prfcreator sur une Ricoh 2050 qui gère ce mode R/V dans les options.

Voici mon travail, détail J'ai trouvé le code "Sub PdfCreator" sur la toile.
Merci du coup de pouce

Sub Enregistrement()
RepAffichage = MsgBox("Vous allez enregistrer votre travail au format pdf, pouvoir l'imprimer et sortir d'Excel automatiquement, voulez vous continuer ?", _
vbYesNo + vbCritical, "QUESTION N°1 !")
If RepAffichage = vbNo Then
Exit Sub
End If
If RepAffichage = vbYes Then
Calculate
If Range("R16") >= 1 Then
RepAffichage = MsgBox("Une ou plusieurs valeur(s) sont fausse(s),souhaitez vous apporter une correction avant de poursuivre l'enregistrement ?", _
vbYesNo + vbQuestion, "QUESTION N°2 !")
If RepAffichage = vbNo Then
Call PdfCreator 'Appel de la procedure PdfCreator
Application.Quit 'Sortie d'Excel
ThisWorkbook.Close savechanges:=True
Exit Sub
End If
If RepAffichage = vbYes Then
Exit Sub
End If
End If
Call PdfCreator
Application.Quit
ThisWorkbook.Close savechanges:=True
Exit Sub
End If
End Sub
Sub PdfCreator()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
sNomPDF = ActiveSheet.Range("W7") & ".pdf" 'Nom du fichier dans la cellule W7+extension.pdf
sCheminPDF = "C:\Dossier T" & "\" 'Dossier de déstination de l'enregistrement
Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")
With JobPDF
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PdfCreator"
Exit Sub
End If ' 0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sCheminPDF
.cOption("AutosaveFilename") = sNomPDF
.cOption("AutosaveStartStandardProgram") = 0
.cOption("UpdateInterval") = 0
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator" 'Fichier dans la file d'attente
Do Until JobPDF.cCountOfPrintjobs = 1
DoEvents
Loop
JobPDF.cPrinterStop = False
Do Until JobPDF.cCountOfPrintjobs = 0 'Attendre que la file d'attente soit vide
DoEvents
Loop
JobPDF.cClose
Set JobPDF = Nothing
End Sub