Code macro pour imprimer Recto Verso

Salut le forum

J'ai le code macro ci-dessous qui me permet de réaliser des impressions.

Pour la feuille CGLES, l'impression se fait sur 2 pages.

Je souhaite qu'au lieu de 2 pages, l'impression se face sur une seule page en RECTO VERSO.

Comment faire?

Sub IMPRESSION_RECTO()

'Déclaration des variables

Dim valeur_donne_D35 As String
Dim valeur_donne_D36 As String

'Sélection de la valeur de !DONNE D35 et DONNE D36 et mise en variable

valeur_donne_D35 = Worksheets("DONNE").Range("D35")
valeur_donne_D36 = Worksheets("DONNE").Range("D36")

ElseIf valeur_donne_D35 = "46" Or valeur_donne_D35 = "49" Then
Sheets("SESA").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("CGLES").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True

Else
If valeur_donne_D36 = "24" Or valeur_donne_D36 = "23" Or valeur_donne_D36 = "35" Or valeur_donne_D36 = "41" Or valeur_donne_D36 = "44" Then
Sheets("SMS").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True

'Fin de la vérification des conditions
End If
End Sub

Salut,

J'ai essayé d'enregistrer un code avec l'enregistreur et il se résume à une ligne

Sub Macro2()
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

Essaie d'enregistrer un code chez toi et tu verras bien comment tu peux le réutiliser, non ?

Cordialement.

Salut yvouille

Je m'excuse de n'avoir pas donné une suite à ta réponse.

Finalment ca m'en suis servi et mon problème a été résolu.

Merci infiniment