Recherche partielle

Private C1 As Workbook 'déclare la variable C1 (Classeur 1)
Private C2 As Workbook 'déclare la variable C1 (Classeur 1)
Private O1 As Worksheet 'déclare la variable O1 (Onglet 1)
Private O2 As Worksheet 'déclare la variable O2 (Onglet 2)
Private TV1 As Variant 'déclare la variable TV1 (Tableau des Valeurs de l'onglet 1)
Private TV2 As Variant 'déclare la variable TV2 (Tableau des Valeurs de l'onglet 2)
Private I1 As Long 'déclare la variable I1 (Incrément 1)
Private I2 As Long 'déclare la variable I2 (Incrément 2)
Private J1 As Integer 'déclare la variable J1 (incrément 1)
Private J2 As Integer 'déclare la variable J2 (incrément 2)

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Set C1 = ThisWorkbook 'définit le classeur C1
Set C2 = Workbooks("second_classeur.xlsm") 'définit le classeur C2 (à adapter à ton cas)
Set O1 = C1.Sheets("Feuil1") 'définit l'onglet O1 (à adapter à ton cas)
Set O2 = C2.Sheets("Feuil2") 'définit l'onglet O2 (à adapter à ton cas)
Me.Caption = "RECHERCHE" 'définit le titre de l'UserForm
Me.Label1.Caption = C1.Name & " - " & O1.Name 'renvoie dans l'étiquette Label1 le nom du classeur C1 et le nom de l'onglet O1
Me.Label1.Caption = C2.Name & " - " & O2.Name 'renvoie dans l'étiquette Label2 le nom du classeur C2 et le nom de l'onglet O2
TV1 = O1.Range("A1").CurrentRegion 'définit le tableau des valeurs TV1
TV2 = O2.Range("A1").CurrentRegion 'définit le tableau des valeurs TV2
End Sub

Private Sub TextBox1_Change() 'au changement dans la TextBox1
Me.ListBox1.Clear 'vide la ListBox1
Me.ListBox2.Clear 'vide la ListBox2
If Me.TextBox1.Value = "" Then Exit Sub 'si la Textbox1 est effacée, sort de la procédure

For I1 = 1 To UBound(TV1, 1) 'boucle 1 : sur toutes les lignes I1 du tableau des valeurs TV1
    For J1 = 1 To UBound(TV1, 2) 'boucle 2 : sur toutes les colonnes J1 du tableau des valeurs TV1
        'condition : si le texte édité dans la TextBox1 est contenu dans la donnée ligne I1 colonne J1 du tableau des valeurs TV1
        If InStr(1, TV1(I1, J1), Me.TextBox1.Value, vbTextCompare) > 0 Then
            'ajoute la donnée à la ListBox1 en mentionnant sa ligne et sa colonne
            Me.ListBox1.AddItem "Ligne " & I1 & " / Colonne" & J1 & " - " & TV1(I1, J1)
        End If 'fin de la condition
    Next J1 'prochaine colonne de la boucle 2
Next I1 'prochaine ligne de la boucle 1

For I2 = 1 To UBound(TV2, 1) 'boucle 1 : sur toutes les lignes I2 du tableau des valeurs TV2
    For J2 = 1 To UBound(TV2, 2) 'boucle 2 : sur toutes les colonnes J2 du tableau des valeurs TV2
        'condition : si le texte édité dans la TextBox1 est contenu dans la donnée ligne I2 colonne J2 du tableau des valeurs TV2
        If InStr(1, TV2(I2, J2), Me.TextBox1.Value, vbTextCompare) > 0 Then
            'ajoute la donnée à la ListBox2 en mentionnant sa ligne et sa colonne
            Me.ListBox2.AddItem "Ligne " & I2 & " / Colonne" & J2 & " - " & TV2(I2, J2)
        End If 'fin de la condition
    Next J1 'prochaine colonne de la boucle 2
Next I1 'prochaine ligne de la boucle 1
End Sub