Générer pdf

Bonjour,
J'ai un excel(ci joint), avec un nombre de pages variables, on peut sélectionner un certain nombre de pages avec le userform1. Mon problème est que ma macro PDF qui génère un pdf à partir du excel, ne fonctionne pas. Il y a une erreur. Et même lorsque ça marche, il ne prend en compte que les deux dernières pages.
Je suis sur excel 2013, donc le redimensionnement des listes ne marchent pas;
Merci d'avance
<Sub pdf()
Sheets("Feuil5").Select
Nom = Range("B13") & " - " & Range("B12") & "(" & Range("B9") & ")" & ".xlsm"

sRep = "C:\Users\Desktop\"
NomPDF = sRep & Nom
maTab = Array("Feuil5")

If Sheets("Feuil1").Visible = True Then

maTab = Array(maTab, "Feuil1")
End If

Sheets(maTab).Select
ThisWorkbook.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True


'ActiveWindow.SelectedSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomPDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub>