'CE QUE J'AIMERAIS FAIRE
ListBox1.Clear
For i = LBound(Tablo) To UBound(Tablo)
If Tablo(i, 1) Like "*" & TextBox1.Text & "*" Then
ListBox1.AddItem i
ListBox1.List(k, 1) = Tablo(i, 1)
ListBox1.List(k, 2) = Tablo(i, 2)
ListBox1.List(k, 3) = Tablo(i, 3)
ListBox1.List(k, 4) = Tablo(i, 4)
k = k + 1
End If
Next