XL 2013 Importer nom d'un fichier source

=STXT(CELLULE("nomfichier");CHERCHE("[";CELLULE("nomfichier"))+1;CHERCHE("]";CELLULE("nomfichier"))-CHERCHE("[";CELLULE("nomfichier"))-1)

Sub ImportData()
    
    Application.ScreenUpdating = False 'désactive le rafraichissement de l'écran
    
    Call Réinit 'appel à la fonction de réinitialisation
    
    Dim WkbSrc, WkbDest As Workbook, ShtDest As Worksheet
    Dim Nom_Fichier As Variant
    
    Set WkbDest = ThisWorkbook
            
    Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm")
    If Nom_Fichier <> False Then
        Set WkbSrc = Workbooks.Open(Nom_Fichier)
        WkbSrc.Activate
    End If
          
    '--------------------------------------------------------'
    ' Copie des données depuis la source vers la destination '
    '--------------------------------------------------------'
    
    With WkbSrc.Worksheets("Coordonnées")
        .Range("NomClient").Copy
    End With
    
    WkbDest.Worksheets("Import").[NomClient].PasteSpecial xlPasteValues
    
    With WkbSrc.Worksheets("Coordonnées")
        .Range("NumChantier").Copy
    End With
    
    WkbDest.Worksheets("Import").[NumChantier].PasteSpecial xlPasteValues
       
    With WkbSrc.Worksheets("Caractéristiques")
        .Range("NomFichier").Copy
    End With
    
    WkbDest.Worksheets("Import").[NomFichier].PasteSpecial xlPasteValues
    

    '----------------------------------------------------------------'
    ' Copie des colonnes utiles du tableau vers celui de destination '
    '----------------------------------------------------------------'
        
...    

End Sub