Private Sub TextBoxResDemandeur_Change() 'Textbox de recherche
Application.ScreenUpdating = False
ListBox1.Clear
If TextBoxResDemandeur <> "" Then
For ligne = 7 To 343
If Cells(ligne, 2) Like "*" & TextBoxResDemandeur & "*" Then
ListBox1.AddItem Cells(ligne, 1) & " . " & Cells(ligne, 3) & " | " & Cells(ligne, 4) 'Les 3 infos sont '
' affichés à la suite'
End If
Next
End If
End Sub