Sub extractionValeurIntervalleXLSX()
Application.ScreenUpdating = False: Range("A11").Resize(Range("A" & 2 ^ 20).End(xlUp).Row, 20).ClearContents
Debut = Range("E7").Value: Set Source = New ADODB.Connection
Fin = Range("F7").Value
Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\base.xlsx" & ";Extended Properties=""Excel 12.0;HDR=Yes;"";"
Range("A11").CopyFromRecordset Source.Execute("SELECT * FROM [Feuil1$] WHERE Donnée_3 BETWEEN #" & Format(Debut, "m/d/yyyy hh:mm:ss") & "# And #" & Format(Fin, "m/d/yyyy hh:mm:ss") & "#")
Source.Close
Set Source = Nothing
Application.ScreenUpdating = True
End Sub