Rechercher une partie de variable dans userfo

Bonjour,
j'ai une feuille qui a plusieurs colonnes remplis ar des userforms divers,
dans la colonnes 1 des code tel que: P0123,P556,P852,L556,S852,L852,.... ,
je voudrai pouvoir faire une recherche depuis les code mais en tapant 852 par exemple il m'affiche toute les lignes
dont le code contient 852 dans la 1er colone ou si je tape P pareil il me donne toutes les lignes qui contiennent P dans la 1er colonne

je vous joint mon code au cas où

Private Sub Choixnum_Click()
Dim NumLigne As Integer
Dim Offert As String

Application.ScreenUpdating = False
NumLigne = Choixnum.ListIndex + 3
Set objdvd = Application.ThisWorkbook.Worksheets.Item("feuil4")
Let blnvalidRecherche = True

'si pas de numero entrer
If Me.Choixnum.Value = "" Then
Call MsgBox("Veuillez selectionner un num !", vbCritical + vbOKOnly, "Erreur")
Let blnvalidRecherche = False
MsgBox "ce numero n'éxiste pas"

End If
Let lngNBligne = 3
Dim Genre As String
Application.ScreenUpdating = False

'recherche du numero
If blnvalidRecherche = True Then
Do While objdvd.Cells(lngNBligne, 1) <> ""
If Me.Choixnum.Value = objdvd.Cells(lngNBligne, 2) Then
TextBox7 = objdvd.Cells(NumLigne, 2).Value
TextBox8 = objdvd.Cells(NumLigne, 1).Value
TextBox9 = objdvd.Cells(NumLigne, 3).Value
TextBox13 = objdvd.Cells(NumLigne, 4).Value
TextBox14 = objdvd.Cells(NumLigne, 5).Value
TextBox15 = objdvd.Cells(NumLigne, 6).Value
TextBox20 = objdvd.Cells(NumLigne, 7).Value
TextBox21 = objdvd.Cells(NumLigne, 8).Value
TextBox22 = objdvd.Cells(NumLigne, 9).Value
TextBox23 = objdvd.Cells(NumLigne, 10).Value
TextBox27 = objdvd.Cells(NumLigne, 11).Value
TextBox28 = objdvd.Cells(NumLigne, 12).Value
TextBox29 = objdvd.Cells(NumLigne, 13).Value
TextBox31 = objdvd.Cells(NumLigne, 14).Value
End If
Let lngNBligne = lngNBligne + 1
Loop
End If
Application.ScreenUpdating = True

End Sub

Private Sub CommandButton1_Click()
Unload UserForm1
Range("A3:A10000").EntireRow.Delete
MENU.Show

End Sub

Private Sub CommandButton2_Click()
Set objdvd = Application.ThisWorkbook.Worksheets.Item("feuil2")
Let blnvalidRecherche = True
'si pas de titre entrer
If Me.pile.Value = "" Then
Call MsgBox("Veuillez entrer un numero!", vbCritical + vbOKOnly, "Erreur")
Let blnvalidRecherche = False
End If
Let lngNBligne = 3
Dim Genre As String
Application.ScreenUpdating = False
If pile = "" Then Exit Sub
'Mise à blanc des zones de texte
Genre = Me.pile
Sheets("feuil4").Activate
'recherche du code
If blnvalidRecherche = True Then
Do While objdvd.Cells(lngNBligne, 1) <> ""
If Me.pile.Value = objdvd.Cells(lngNBligne, 2) Then
Sheets("feuil4").Cells(lngNBligne, "A").Value = objdvd.Cells(lngNBligne, 1).Value
Sheets("feuil4").Cells(lngNBligne, "B").Value = objdvd.Cells(lngNBligne, 2).Value
Sheets("feuil4").Cells(lngNBligne, "C").Value = objdvd.Cells(lngNBligne, 3).Value
Sheets("feuil4").Cells(lngNBligne, "D").Value = objdvd.Cells(lngNBligne, 4).Value
Sheets("feuil4").Cells(lngNBligne, "E").Value = objdvd.Cells(lngNBligne, 5).Value
Sheets("feuil4").Cells(lngNBligne, "F").Value = objdvd.Cells(lngNBligne, 6).Value
Sheets("feuil4").Cells(lngNBligne, "G").Value = objdvd.Cells(lngNBligne, 7).Value
Sheets("feuil4").Cells(lngNBligne, "H").Value = objdvd.Cells(lngNBligne, 8).Value
Sheets("feuil4").Cells(lngNBligne, "I").Value = objdvd.Cells(lngNBligne, 9).Value
Sheets("feuil4").Cells(lngNBligne, "J").Value = objdvd.Cells(lngNBligne, 10).Value
Sheets("feuil4").Cells(lngNBligne, "K").Value = objdvd.Cells(lngNBligne, 11).Value
Sheets("feuil4").Cells(lngNBligne, "L").Value = objdvd.Cells(lngNBligne, 12).Value
Sheets("feuil4").Cells(lngNBligne, "M").Value = objdvd.Cells(lngNBligne, 13).Value
Sheets("feuil4").Cells(lngNBligne, "N").Value = objdvd.Cells(lngNBligne, 14).Value
End If
Let lngNBligne = lngNBligne + 1
Loop
End If
Dim sel As Variant
Set sel = Sheets("feuil4").Cells.Find(what:=UserForm1.pile.Value)
If Not sel Is Nothing Then
Range("A3:A10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Else
MsgBox "vous n'avez pas de donnée de ce code"
Exit Sub

End If

Dim NumDerLigne As Integer
Dim Plagenum As Range
'Détermine le n° de la dernière ligne de la plage
NumDerLigne = Cells(3, 2).End(xlDown).Row
'Définit la plage correspondant à la liste des numero
Set Plagenum = Sheets("feuil4").Range(Cells(3, 2), Cells(NumDerLigne, 2))

'Mise à jour de la liste Choixnum
Choixnum.RowSource = Plagenum.Address

End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub pile_Change()
End Sub
Private Sub TextBox10_Change()
End Sub
Private Sub TextBox11_Change()
End Sub
Private Sub TextBox12_Change()
End Sub
Private Sub TextBox13_Change()
End Sub
Private Sub TextBox14_Change()
End Sub
Private Sub TextBox15_Change()
End Sub
Private Sub TextBox18_Change()
End Sub
Private Sub TextBox19_Change()
End Sub
Private Sub TextBox22_Change()
End Sub
Private Sub TextBox23_Change()
End Sub
Private Sub TextBox24_Change()
End Sub
Private Sub TextBox25_Change()
End Sub
Private Sub TextBox26_Change()
End Sub
Private Sub TextBox27_Change()
End Sub
Private Sub TextBox28_Change()
End Sub

Private Sub TextBox29_Change()

End Sub

Private Sub TextBox30_Change()

End Sub

Private Sub TextBox31_Change()

End Sub

Private Sub TextBox32_Change()

End Sub

Private Sub TextBox33_Change()

End Sub

Private Sub TextBox34_Change()

End Sub

Private Sub TextBox35_Change()

End Sub

Private Sub TextBox38_Change()

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub TextBox6_Change()

End Sub

Private Sub TextBox7_Change()

End Sub

Private Sub TextBox8_Change()

End Sub

Private Sub TextBox9_Change()

End Sub