Colonnes masqué dans ma ListBox

Bonjour j'ai réussi a faire une code pour qu'une recherche dans une colonne me fasse apparaitre le résultat de 3 colonnes dans ma list box ,
le problème c'est que ça me masque une partie de mon résultat a moins que j’élargisse la listBox de façon a ce que ça prenne toute la largeur de la page , ce que je ne veux pas et j'aimerai également pouvoir mettre une belle police et des couleurs pour mettre en valeur mes résultat .
merci d'avance pour toute aide que vous pourriez m'apportez .

voici le code que j'ai fait :
Option Compare Text

Private Sub TextBox1_Change()

Application.ScreenUpdating = False

Range("A5:E40").Interior.ColorIndex = 2
ListBox1.Clear
ListBox1.ColumnCount = 3

If TextBox1 <> "" Then

For ligne = 5 To 40
If Cells(ligne, 2) Like "*" & TextBox1 & "*" Then
Cells(ligne, 2).Interior.ColorIndex = 43
ListBox1.AddItem Cells(ligne, 2) & " - " & Cells(ligne, 3) & " - " & Cells(ligne, 4)

End If
Next
End If

End Sub

source : https://www.excel-pratique.com/fr/astuces_vba/champ-de-recherche-vba/#comment-130677