With Me.ListBox1
For i = 0 To .ListCount - 1
MyString = Replace(.Column(0, i), " ", " ") 'La verrue de plus !! Arf
If InStr(GetNonAccent(UCase(MyString)), GetNonAccent(UCase(Me.TextBox1))) <> 0 Then
ReDim Preserve TabSearch(0, x)
TabSearch(0, x) = .Column(0, i)
x = x + 1
End If
Next i
End With