Excel 2011 Mac - Créer un pdf à partir d'une sélection

Bonjour à tous !

je souhaiterais faire une sélection, et créer un pdf uniquement avec cette sélection.

Voici mon code qui ne marche pas :

Sub PDF()

    Worksheets("Feuil1").Activate
    Range("A4:D8").Select

    Dim fichier As String, Fichier2 As String

    fichier = ThisWorkbook.Path & ":mika.pdf"
    Fichier2 = Replace(Replace(fichier, "Macintosh HD", ""), ":", "/")

    ' Fichier = ThisWorkbook.Path & Application.PathSeparator & "Répartition:test.pdf"
    MsgBox Fichier2

    ActiveSheet.PageSetup.PrintArea = "A4:D8"
    'ActiveSheet.PageSetup.PrintArea = Selection.Address 'pour faire la sélection

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier2, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

End Sub

Bonjour

Avez-vous trouvé la solution à votre problème ?

Cordialement