Sub Filtre()
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData
'--- magasins
Tbl = Application.Transpose([magasins])
ActiveSheet.[A1].AutoFilter Field:=3, Criteria1:=Tbl, Operator:=xlFilterValues
'--- nuance
Tbl = [nuance].Value
ReDim Tbl2(1 To UBound(Tbl))
For i = 1 To UBound(Tbl)
Tbl2(i) =CStr(Tbl(i, 1))
Next i
ActiveSheet.[A1].AutoFilter Field:=4, Criteria1:=Tbl2, Operator:=xlFilterValues
End Sub
Sub Tout()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub