Sub test()
rangeToPdf "A10:B19", "C:\Users\L0264687\Links\TEST.pdf"
End Sub
Private Sub rangeToPdf(Plage$, strpath$)
Dim rng As Range, nfic$
Set rng = Range(Plage)
nfic = strpath
rng.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=nfic, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True, _
From:=1, To:=1, OpenAfterPublish:=True
End Sub