Private Sub CommandButton1_Click()
Dim t(), t1(), z As Long, x As Long, i As Long, ligne As Long
Application.ScreenUpdating = False 'rajoute
Windows("aa.csv").Activate 'rajoute
ListBox1.Clear
t = Range("a2:ay" & Cells(Rows.Count, 1).End(xlUp).Row) 'modifie
ReDim t1(1 To UBound(t), 1 To 8)
For i = 1 To UBound(t)
If t(i, 20) Like "*" & TextBox1 & "*" Then
x = x + 1
t1(x, 1) = t(i, 2)
t1(x, 2) = t(i, 20)
t1(x, 3) = t(i, 13)
t1(x, 4) = t(i, 21)
t1(x, 5) = t(i, 23)
t1(x, 6) = t(i, 24)
t1(x, 7) = t(i, 25)
t1(x, 8) = t(i, 26)
End If: Next i
ListBox1.List = t1
Windows("TrackTool_62.xls").Activate 'rajoute
End Sub