recherche partielle dans 1 tableau excel

Bonjour, et tout d'abord merci à tout ceux qui postent pour aider ceux qui en ont besoin.

J'ai fais une fonction "recherche" pour un tableau excel à 10 colonne.
La commande "UCase" permet de trouver le résultat sans tenir compte des majuscule/minuscule, mais maintenant je voudrai pouvoir faire une recherche "partielle" d'un mot, c'est à dire pouvoir indiquer le début d'un mot et que la fonction trouve tous les mots entiers qui correspondent.
Pensez vous que ce soit faisable ?

Le mot à rechercher est indiquer dans "textbox1", et à chaque fois qu'il est trouvé sur une ligne celle-ci est colorée en orange.
Je précise que je suis novice en VBA et programation en générale.


Private Sub recherche_Click()

ligne = 1
colonne = 1
token = 0

While token < 10

If colonne < 11 Then

If Cells(ligne, colonne) <> "" Then

If UCase(Cells(ligne, colonne)) = UCase(TextBox1) Then
Range(Cells(ligne, 1), Cells(ligne, 10)).Select

With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
End With

ligne = ligne + 1

Else

colonne = colonne + 1

End If

Else
colonne = colonne + 1
token = token + 1

End If

Else
ligne = ligne + 1
colonne = 1
token = 0

End If

Wend

End Sub