Sub Importer()
Dim feuille$, cible As Variant, chemin$, fichier$
feuille = "Feuil1"
cible = Application.GetOpenFilename("Fichiers Excel ,*.xlsm", , "Selectionnez votre fichier à importer")
If cible = False Then Exit Sub
chemin = Left(cible, InStrRev(cible, Application.PathSeparator))
fichier = Mid(cible, Len(chemin) + 1)
[C3] = ExecuteExcel4Macro("'" & chemin & "[" & fichier & "]" & feuille & "'!"&[A1].address(,,xlr1c1))
End Sub