Private Sub CommandButton1_Click()
Dim t(), t1(), z As Long, x As Long, i As Long, ligne As Long
ListBox1.Clear
'On Error Resume Next
t = Feuil1.Range("a21:ay" & Feuil1.Cells(Rows.Count, 1).End(xlUp).Row)
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) = Format(t(i, 2), "dd/mm/yyyy")
t1(x, 2) = t(i, 20)
t1(x, 3) = t(i, 13)
If IsNumeric(t(i, 21)) Then
t1(x, 4) = Format(t(i, 21), "0%")
Else
t1(x, 4) = t(i, 21)
End If
t1(x, 5) = t(i, 23)
t1(x, 6) = t(i, 24)
t1(x, 7) = t(i, 25)
t1(x, 8) = t(i, 26)
't1(x, 9) = t(i, 47)
't1(x, 10) = t(i, 48)
' t1(x, 11) = t(i, 49)
't1(x, 12) = t(i, 50)
't1(x, 13) = t(i, 22)
End If: Next i
ListBox1.List = t1
End Sub