Private Sub CHERCHE_Change()
Application.ScreenUpdating = False
On Error Resume Next
ListeAffaire.ColumnCount = 5
ListeAffaire.ColumnWidths = "40;80;80;100;80"
If CHERCHE.Value = "" Then ListeAffaire.Clear: Exit Sub
k = 0
lr = Cells(Rows.Count, 4).End(xlUp).Row
For Each c In Range("d3:d" & lr)
b = InStr(c, CHERCHE)
If b > 0 Then
ListeAffaire.AddItem
ListeAffaire.List(k, 0) = Cells(c.Row, 1).Value
ListeAffaire.List(k, 1) = Cells(c.Row, 2).Value
ListeAffaire.List(k, 2) = Cells(c.Row, 3).Value
ListeAffaire.List(k, 3) = Cells(c.Row, 4).Value
ListeAffaire.List(k, 4) = Cells(c.Row, 5).Value
k = k + 1
End If
Next c
Application.ScreenUpdating = True
End Sub