Sub LectureAccess()
'Microsoft ActivexDataObject 2.8 Library
repertoire = ThisWorkbook.Path & "\"
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & repertoire & "basetest.mdb"
Set rs = cnn.Execute("SELECT * FROM Site")
Range("A1").CopyFromRecordset rs
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub