With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DBQ=" & NomRepFich & ";DefaultDir=" & NomRep & ";Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=1046;" _
), Array( _
"FIL=excel 12.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=" _
), Array("Yes;")), Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT `DirAllImport$`.R, `DirAllImport$`.N, `DirAllImport$`.T, `DirAllImport$`.D, `DirAllImport$`.L" & Chr(13) & "" & Chr(10) & "FROM `DirAllI" _
, _
"mport$` `DirAllImport$`" & Chr(13) & "" & Chr(10) & "WHERE (`DirAllImport$`.N Like '%" & NRech & "%')" & Chr(13) & "" & Chr(10) & "ORDER BY `DirAllImport$`.D DESC" _
)
.RowNumbers = True
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
'.ListObject.DisplayName = "Tableau_ReqRNTDL2012"
.Refresh BackgroundQuery:=False
'.local = True
End With