Probleme impression PDF sans certaines lignes Excel

Bonjour,

Je bloque je voudrai imprimer un PDF de ma feuille Excel, ça c'est OK sauf que je veux imprimer la zone A1 à I19 et A22 à I23

quand je lance la commande cela fonctionne mais mon PDF est en 2 pages un pour la zone A1:I19 et une page pour A22:I23

Comment faire pour tout avoir sur un seul PDF

Sub Impression_PDF()

Dim chemin, chemin_1, chemin_2 As String, Fichier As String

chemin = Range("K4").Value

chemin_1 = chemin & (Range("C6").Value)

chemin_2 = chemin_1 & " " & "S" & (Range("I7").Value)

With ActiveSheet

Fichier = chemin_2
Fichier = Fichier & " " & "-" & Format(.[L7], "yyyy") & ".pdf"
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$19,$a$22:$i$23"
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Fichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End With

For Each CheckBox In ActiveSheet.CheckBoxes

CheckBox.Value = False

Next

    Range("L7").Select
    Selection.ClearContents
    Range("C6").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=3
    Range("B11:B18").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=3
    Range("F11:F18").Select
    Selection.ClearContents

End Sub

Merci d'avance pour votre aide

re,

PrintArea = "$A$1:$i$23"

cacher les lignes 20-21 , imprimer et montrer les lignes 20-21

     With ActiveSheet
          Fichier = chemin_2
          Fichier = Fichier & " " & "-" & Format(.[L7], "yyyy") & ".pdf"
          .PageSetup.PrintArea = "$A$1:$i$23"
          .Rows("20:21").Hidden = True
          .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
          .Rows("20:21").Hidden = False
     End With

merci beaucoup!!!