Sub Filtre_Designation()
Dim I As Integer
Dim Crit() As String
Dim Elem
On Error Resume Next
N = [Stock[Code Fabricant]].SpecialCells(xlCellTypeVisible).Count
If Err = 0 Then
ReDim Crit(1 To N)
For Each Elem In [Stock[Code Fabricant]].SpecialCells(xlCellTypeVisible).Cells
I = I + 1: Crit(I) = CStr(Elem)
Next
[Designation].ListObject.Range.AutoFilter Field:=1, Criteria1:=Crit, Operator:=xlFilterValues
[Designation].Parent.Activate
End If
End Sub