Filtre valeur + date

Bonjour à tous,

Je cherche à faire un filtre qui fonctionne par nom et par date. C'est à dire que l'on filtre la date (On garde ceux supérieux à la fin de mois) et un filtre qui garde 5 noms/6.

Les deux filtres fonctionnent séparement mais pas ensemble. Savez-vous comment relier les filtres ?

Mon code :

FinMois = WorksheetFunction.EoMonth(Date, 0)

FinMois = Format(FinMois, "dd/mm/yyyy")

ActiveSheet.Range("I2:I" & Nombre_Ligne - 1).AutoFilter Field:=1, Criteria1:=">" & FinMois, Operator:=xlFilterValues

ActiveSheet.Range("D14:D" & Nombre_Ligne - 1).AutoFilter Field:=1, Criteria1:=Array("agency/supra", "sovereign", "corporate", "covered", "PIIS"), Operator:=xlFilterValues

J'ai tenté cela mais ca ne fonctionne pas :

'ActiveSheet.Range("I2:I" & Nombre_Ligne - 1).AutoFilter Field:=9, Criteria1:=">" & FinMois, Operator:=xlAnd, Criteria2:=Array("agency/supra", "sovereign", "corporate", "covered", "PIIS")

J'imagine qu'il y a un problème concernant le "Field" sur deux colonnes différentes mais je ne sais pas comment indiquer les deux en un.

Avez-vous une idée ?

Un grand merci d'avance !