Créer PDF en combinant deux feuilles...sous condition

Sub CréationPDF()
  Dim sRep As String, sFic As String
  ' Définir le chemin d'enregistrement
  sRep = ThisWorkbook.Path & "\"
  ' Vérifier si la cellule A1 est vide ou non
  If Sheets("Feuil1").Range("A1").Value = "" Then
    ' Définir le nom du fichier
    sFic = "Unefeuille.pdf"
    ' Sélection de la feuilles
    Sheets("Feuil1").Select
  Else  ' Sinon créer PDF avec 2 feuilles ou plus
    ' Définir le nom du fichier
    sFic = "DeuxFeuilles.pdf"
    ' Sélection DES feuilles
    Sheets(Array("Feuil1", "Feuil2")).Select
  End If
  ' Créer le fichier PDF
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & sFic, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub