Voilà çà devrait fonctionner pour n'importe quelle feuille "en cours"
et l'enregistrement pdf ce fera dans le même répertoire que le fichier excel.
Sub EXPORTPDF()
' EXPORTPDF Macro
Dim chemin As String
Dim Nompdf As String
chemin = ThisWorkbook.Path & "\"
Nompdf = ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & Nompdf, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub