Bonjour Dubdub87,
Je n'ai pas de MAC sous la main, mais je te propose d'essayer le code suivant testé sous Windows:
Sub enregistrerpdf()
Dim sPDFName As Variant
'On demande où et sous quel nom enregistrer le PDF
sPDFName = Application.GetSaveAsFilename(, "PDF Files (*.pdf), *.pdf", , "Choisir le dossier et le nom du PDF", "Créer PDF")
If sPDFName <> False Then
Feuille10.PageSetup.PrintArea = "A1:H62"
Feuille10.Range("A1:H62").ExportAsFixedFormat Type:=xlTypePDF, FileName:=sPDFName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True
Else
MsgBox "Aucun nom de PDF indiqué." & vbCrLf & "La création du PDF est impossible.", vbExclamation, "CREATION PDF"
End If
End Sub