Sub Macro1()
Dim strPath$
strPath = "C:\VBA_ESSAIS\" ' mettre le bon chemin
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strPath & "Teste.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=True, _
From:=1, To:=1
End Sub