Private Sub cmdAdd_Click()
Dim i As Long, ii As Long, j As Integer
Dim Ary()
ListBox1.Clear
iNdx = ""
With Worksheets("sheet2")
For i = 2 To .Cells(Rows.Count, "a").End(xlUp).Row
If InStr(.Cells(i, "a"), CStr(Me.TextBox90)) = 1 Then
.....suite du code