Sub test()
Dim oRec As ADODB.Recordset
Dim lsDSN As String
Set oRec = New ADODB.Recordset
lsDSN = 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=C:\\Nouveau dossierdonnées\\données.xls;' & _
'Extended Properties=''Excel 8.0;HDR=Yes;IMEX=1'''
oRec.Open Source:='SELECT * FROM [Données]', ActiveConnection:=lsDSN
Worksheets(1).Cells(1, 1).CopyFromRecordset oRec
Set oRec = Nothing
End Sub