Bonjour !
je cherche à remplacer le critere
CriteriaRange:=Sheets("feuille2").Range("A1:A2")
par critere en clair dans le code macro ( nom du critere PAYS et pays= FRANCE .. c'est comme si j'ai sur feuille2 contenant le critere pour filtre avancé : A1 = PAYS et A2 = FRANCE

Est ce possible ?

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Macro1 Macro
' Macro recorded 01/12/2010 by Jean
 
 
    Sheets("feuille1").Cells.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("feuille2").Range("A1:A2"), CopyToRange:=Range("A1"), _
        Unique:=False
End Sub