Sub Test_SQL()
Dim Cn As ADODB.Connection
Dim Cd As ADODB.Command
Dim Rst As ADODB.Recordset
PathCata = "C:\Users\Bruno\Desktop\Contract.xlsx"
TabSource = "Source$"
Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & PathCata & ";" & _
"Extended Properties=""Excel 12.0;HDR=No;"""
Set Rst = Cn.Execute("select * FROM `" & PathCata & "`.`" & TabSource & "` `REQ$`")
ThisWorkbook.Sheets("CatalogTraitement").Range("A2").CopyFromRecordset Rst
Cn.Close
Set Cn = Nothing
Set Rst = Nothing
End Sub