Trouver une valeur dans un fichier sans l'ouvrir et la recopier

Bonjour à tous,

Je veux faire une macro pour trouver une valeur dans une autre feuille s'en l'ouvrir.

La valeur à chercher dans cette feuille se trouve dans la cellule "A2" de ma feuille ouverte et je veux trouver la valeur qui est comprise dans le nom dans la colonne "B" de mon fichier non ouvert. ex: je cherche C28021 dans C28021-004-12. Lorsque la valeur à été trouvé dans la feuille non ouverte, je veux la copier dans le cellule "A2" de ma feuille ouverte.

J'ai essayé avec une méthode ADODB mais la je suis un peu perdu!!

Voici ce que j'ai fait, j'ai un erreur sur la ligne texte_SQL qui dit que la Déclaration existante dans la portée en cours et je ne trouve pas c'est quoi le probème:

Dim Cn As ADODB.Connection
    Dim Fichier2, texte_SQL As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset'Comparaison des deux fichiers
        '-----------------------------
        Sondage = Cells(2, 1).Value
       
        'Définit le classeur fermé servant de base de données
        Fichier2 = "M:\Entrepot\BDFS\0_Sondages_a_saisir_Geotec\" & "SONDAGE.xlsx"
        'Nom de la feuille dans le classeur fermé
        NomFeuille = "SONDAGE"
    
        Set Cn = New ADODB.Connection
    
        '--- Connexion ---
        With Cn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
             & Fichier2 & ";Extended Properties=""Excel 12.0;HDR=YES;"""
            .Open
        End With
        '-----------------
    
        '... la requête ...
        'Value = application.vlookup(Sondage,range("B").Cells(.rows.count, 1).end(xldown)),1,1)
        texte_SQL = "SELECT*FROM*&fichier2"
        Set Rst = New ADODB.Recordset
        Rst.Open texte_SQL, Cn, adOpenStatic, adLockReadOnly
        MsgBox Rst.RecordCount & "Nombre de lignes"
        Rst.Close
        Set Rst = Nothing
        
       
        '--- Fermeture connexion ---
        Cn.Close
        Set Cn = Nothing

Pouvez-vous m'aider?

Merci!