C'est parfait merci beaucoup.
Par contre je suis novice en VBA donc juste j'ai deux petites questions sur ta formule:
1- Pour l'instant cela se limite à 4 colonnes, si je veux en rajouter par exemple la colonne "I" je dois changer les lignes suivantes ?
Range("G2").FormulaLocal = "=OU(A5=""" & Range("B1") & """;B5=""" & Range("B1") & """;C5=""" & Range("B1") & """;D5=""" & Range("B1") & """;E5=""" & Range("B1") & """;H5=""" & Range("B1") & """ ; I5=""" & Range("B1") & """)"
et
Range("A4:I" ).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("G1:G2"), Unique:=False
Range("G1:G2").ClearContents
2- Je n'ai pas compris à quoi sert les zones G1 et G2 dans ta formule. A priori elles sont vides non ?
Tu m'as beaucoup aidé et merci encore