Sub import()
Dim chemin As String, fichier As String
chemin = "C:\XLS\ESSAI\"
'Nom du fichier source
fichier = "MONFICHIER.xlsm"
ThisWorkbook.Names.Add "plage", _
RefersTo:="='" & chemin & "[" & fichier & "]variables'!$A$2:$B$400"
With Sheets("donnees")
.[A2:B400] = "=plage"
End With
End Sub