Concaténation

Dim cheminFichier As String
    Dim chemin As String
    Dim nomFichier As String
    
    If Application.FileDialog(msoFileDialogFilePicker).Show = True Then
        'Définit le classeur fermé servant de base de données
        cheminFichier = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
        nomFichier = Dir(cheminFichier)
        chemin = Replace(cheminFichier, nomFichier, "")
    Else
        MsgBox ("Veuillez cliquer sur ouvrir svp")
        Exit Sub
    End If

    msgbox (ExecuteExcel4Macro("'" & chemin & "\['"& nomfichier &"']Feuil1'!R2C1")