VBA filtre multicritère à partir des valeurs d'une plage de cellule

Sub FiltreCellule()

    Workbooks("Classeur1.xlsx").Worksheets("Feuil1").Range("B2:D7").AutoFilter Field:=1, Criteria1:=Array(Workbooks("Classeur2.xlsx").Worksheets("Feuil1").Range("B2:B3").Value), Operator:= _
        xlFilterValues

End Sub

Sub Filtre_Avancé()
'

    Workbooks("X.xlsx").Worksheets("X").Activate
    'Positionne toi dans le classuer X.xlsx...
    Range("A4:AG2052").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Workbooks("Classeur2.xlsx").Sheets("Feuil1").Range("B2:B7"), Unique:=False
    Range("A4").Select
    'Prends la plage A4:AG2052 où la ligne 4 repésente les en-têtes de colonnes.
    'Actionne le filtre avancé et utilise la plage B2:B7 du classeur 2 où B2 doit être l'en-tête de colonne de ma BDD.
    'Attention l'en-tête doit être exctement la même sur les fichiers sinon le filtre ne fonctionnera pas
End Sub