Sub ImporterDonneesSansOuvrir()
Dim Chemin As String, Fichier As String
Chemin = "C:\Users\\Desktop\"
Fichier = "fichier_base.xlsx"
ThisWorkbook.Names.Add "plage", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Sheet1'!$A$1:$B$10"
With Sheets("Sheet1")
.[A1:B10] = "=plage"
.[A1:B10].Copy
Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues
'.[A1:F10].Clear
End With
End Sub