bonjour
Change ta procédure comme ceci
Pas besoin de bouton
Pour ta textebox2 la propriété multiligne =TRue
Maintenat reste à savoir où tu veux en venir!
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("A2:A24").Interior.ColorIndex = 2
ListBox1.Clear
If TextBox1 <> "" Then
For Ligne = 2 To 24
If Cells(Ligne, 1) Like "*" & TextBox1 & "*" Then
Cells(Ligne, 1).Interior.ColorIndex = 43
ListBox1.AddItem Cells(Ligne, 1)
phrase = phrase & ListBox1.List(ListBox1.ListCount - 1) & vbCrLf
End If
Next
End If
TextBox2 = phrase
End Sub