Microsoft 365 Filtre multicritères contenu dans une colonne en VBA

[vinz115]

Bonjour,

Malgré mes recherches, je ne trouve pas ce qu'il me faut.

Voici le code avec des données fixes (critères) qui fonctionne bien :

ActiveSheet.ListObjects("ImportCSV").Range.AutoFilter Field:=12, Criteria1 _
        :=Array("Critère 1", "Critère 2", "Critère 3"), Operator:=xlFilterValues

Ce que je ne trouve pas, c'est remplacer les critères par une série de valeur contenu dans un autre onglet dans une colonne (max 100 critères)

D'avance merci pour votre aide

 

[Compte Supprimé 979]

Bonjour Vinz115

Peut-être quelque chose comme ceci

Dim Tb() as Variant
' Critères dans la plage A1:A100
Tb = Sheets("NomFeuille2").Range("A1:A100")
ActiveSheet.ListObjects("ImportCSV").Range.AutoFilter Field:=12, Criteria1:=Tb, Operator:=xlFilterValues

A+