Sub ImportDonnées()
Dim i As Integer
Données.Range("A2:AD65536").Clear '
SQLString = "SELECT *FROM Réservations WHERE NOT Préstataire IS NULL"
Set Source = New ADODB.Connection
Source.Provider = "Microsoft.jet.OLEDB.4.0;"
Source.Open ThePath & AccesRésa
Set ADOQuery = New ADODB.Recordset
Set ADOQuery = Source.Execute(SQLString)
Données.Range("A2").CopyFromRecordset ADOQuery
ADOQuery.Close
Source.Close
End Sub