Bonjour, j'ai un petit soucis concernant l'automatisation d'un filtrage.

En fait je voudrais que mon 2ème critère de filtrage sur ma base de donnée dans ma 2ème feuille soit la date (aujourdhui - 1) qui est dans la cellule E1 de ma première feuille. J'ai bien tenté quelque chose mais ça ne marche pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub taités171()
'
'
'
 
'
Dim i As String
i = Sheets("Feuil1").Cells(5, 1)
Sheets("171").Select
 
'filtre sur le premier critère
 
    ActiveSheet.Range("$A$1:$AJ$16259").AutoFilter Field:=3, Criteria1:=Array( _
        "1", "2", "3", "4", "5", "6"), Operator:=xlFilterValues
 
'filtre sur le 2ème critère
 
         ActiveSheet.Range("$A$1:$AJ$16259").AutoFilter Field:=3, Operator:= _
        xlFilterValues, Criteria2:=Array(2, i)
 
end sub
quelqu'un peut-il m'aider ???

Merci d'avance pour vos réponses