Barre rechercher + plus mettre la case rechercher en premier

Bonjour,

Je souhaiterais que quand je cherche le début d'une contenue d'une case, la case s'affiche en première.

Voici le début de ma macro :

Option Compare Text

Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

    Range("B4:B24").Interior.ColorIndex = 2

    If TextBox1 <> "" Then
    For ligne = 2 To 24
        If Cells(ligne, 2) Like "*" & TextBox1 & "*" Then
            Cells(ligne, 2).Interior.ColorIndex = 43
        End If
    Next
    End If

End Sub

Je vous remercie de votre aide par avance