Private Sub TextBox143_Change()
Dim WS As Worksheet, Plage As Range, c As Range
Dim Lig As Long, i As Long, Recherche As String, adres As Integer
Me.ListBox1.Clear
Recherche = TextBox143.Value
Set WS = Worksheets("Base")
If Recherche <> "" Then
Lig = WS.Cells(Rows.Count, "J").End(xlUp).Row
For i = 2 To Lig
Set Plage = WS.Range("A" & i & ":AJ" & i)
Set c = Plage.Find(Recherche, , , xlPart)
If Not c Is Nothing Then
With Me.ListBox1
adres = Val(c.Row)
.AddItem WS.Cells(adres, 2).Value
.Column(1, .ListCount - 1) = Format(WS.Cells(adres, 10), "00000") 'pourquoi ce format ?
.Column(2, .ListCount - 1) = WS.Cells(adres, 11)
.Column(3, .ListCount - 1) = WS.Cells(adres, 3)
.Column(4, .ListCount - 1) = adres
End With
End If
Next
End If
End Sub