Modif macro - enregistrement excel vers mac

Je dispose de la macro suivante, mais je n'arrive pas à modifier, pour que celle-ci enregistre chaque feuille en pdf et non pas en excel comme elle le permet tel quel !

Sub feuilles_en_classeur()
Dim feuille As Worksheet
Dim enregistrement, path, nomfeuille As String

path = ActiveWorkbook.path & "\"

For Each feuille In ActiveWorkbook.Sheets

nomfeuille = feuille.Name

feuille.Select
feuille.Copy
ChDir path
enregistrement = path & nomfeuille & ".xlsx"
ActiveWorkbook.SaveAs Filename:=enregistrement, FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

Next
End Sub

merci d'avance,

fabien