Bonjour
Svp je souhaite modifier la macro suivante
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub Macro1()

    Sheets("Feuil1").Select
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, "1/23/2018")
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:="Affecter"

End Sub
de telle sort que "1/23/2018" devient la valeur de la cellule sheets("Feuil2").range("B2")