Sub FiltreData()
On Error Resume Next
Application.ScreenUpdating = False
T = Array(3, 4, 5, 6, 7, 9)
With Sheets("choix").Range("A5:J10000")
.AutoFilter Field:=1, Criteria1:="m", Visibledropdown:=False
.AutoFilter Field:=2, Criteria1:="ca", Visibledropdown:=False
.AutoFilter Field:=8, Criteria1:="3118", Visibledropdown:=False
.AutoFilter Field:=10, Criteria1:="el", Visibledropdown:=False
For i = 0 To UBound(T)
.AutoFilter Field:=T(i), Criteria1:="*", Visibledropdown:=False
Next i
End With
[a1].Select
End...