Macro_Definir_Plusieurs zones d'impression

Sub Export_Zone_PDF()
    Dim fichier As Variant
    Dim Zone(9)
    'definir les zone a exporter
    Zone(0) = "A1:H8"
    Zone(1) = "B9:E18"
    Zone(2) = "A1:H8"
    Zone(3) = "A1:H8"
    Zone(4) = "A1:H8"
    Zone(5) = "A1:H8"
    Zone(6) = "A1:H8"
    Zone(7) = "A1:H8"
    Zone(8) = "A1:H8"
    'boucle export
    For x = 0 To 8
        'choix rep et nom de fichier
        fichier = Application.GetSaveAsFilename
        If fichier <> False Then
            Worksheets("feuil1").Range(Zone(x)).ExportAsFixedFormat Type:=xlTypePDF, _
                                                                    Filename:=fichier & "pdf", _
                                                                    Quality:=xlQualityStandard, _
                                                                    IncludeDocProperties:=True, _
                                                                    IgnorePrintAreas:=False, _
                                                                    OpenAfterPublish:=False
        End If
    Next x
End Sub