Private Sub Choix_Change()
Dim Str_Search As String
On Error Resume Next
Liste.Clear
With Feuil4
t = .Range("a2:d" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
End With
X = 1
For i = 1 To UBound(t)
Str_Search = IIf(Choix.Text = "<<TOUS>>", "*", Choix.Text)
If t(i, 1) Like Str_Search Then
ReDim Preserve t1(1 To 4, 1 To X)
For k = 1 To 4
t1(k, X) = t(i, k)
Next k
X = X + 1
End If
Next i
Liste.Column = t1
Erase t, t1
End Sub