Microsoft 365 Impression recto/verso portrait/paysage d'un même onglet

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Code de MichD
Dim Sh As Worksheet, Arr(), A As Integer
Dim NomFeuille As String, Elt As Variant
'************Variables à définir********************
NomFeuille = "Feuil1" 'Nom de l'onglet de la feuille dont
'tu veux imprimer en portrait et paysage
'Adresse des 2 plages à imprimer (Portrait - Paysage)
Arr = Array("A1:AD48", "AF1:BN30")
'****************************************************
For Each Sh In ActiveWindow.SelectedSheets
Cancel = False
If UCase(Sh.Name) = UCase(NomFeuille) Then
For Each Elt In Arr
'Première adresse en portrait
If A = 0 Then
With Sh
With .PageSetup
.PrintArea = Elt
.CenterFooter = ThisWorkbook.Name
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
End With
End With
A = A + 1
Else
'L'autre adresse en paysage.
With Sh
With .PageSetup
.PrintArea = Elt
.CenterFooter = ThisWorkbook.Name
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
End With
End With
End If
Application.EnableEvents = False
Sh.PrintPreview 'en remplacer après par .PrintOut
Sh.PageSetup.PrintArea = ""
Application.EnableEvents = True
Next
Cancel = True
End If
Next
End Sub

Sub Print1()
'http://www.yqcomputer.com/81_113540_1.htm
With Worksheets("ark1").PageSetup '*** change to ur sheetname
.CenterHorizontally = True
.PrintArea = "$A$2:$D$6" '*** change to ur range
.PrintTitleRows = ("$A$1:$D$1") '*** change to ur range
.Orientation = xlPortrait ' *** change to xlLandscape if..
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Worksheets("ark1").printout ' *** change to ur sheetname
With Worksheets("ark1").PageSetup '*** change to ur sheetname
.CenterHorizontally = True
.PrintArea = "$A$11:$F$16" '*** change to ur range
.PrintTitleRows = ("$A$10:$F$10") '*** change to ur range
.Orientation = xlLandscape '*** change to xlPortrait if..
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("ark1").printout '*** change to ur sheet name

End Sub