With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\ESSAI\MaBase.mdb;DefaultDir=C:\ESSAI;DriverId=25;FIL=MS Access;Ma" _
), Array("xBufferSize=2048;PageTimeout=5;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT `Tbl Commandes`.NumCpte, `Tbl Commandes`.NumAff, `Tbl Commandes`.RefCde, `Tbl Commandes`.DateCde" & Chr(13) & "" & Chr(10) & "FROM `C:\ESSAI\MaBase`.`Tbl Commandes` `Tbl Commandes`" & Chr(13) & "" & Chr(10) & "WHERE (`Tbl Commande" _
, "s`.NumCpte='XXXX99')" & Chr(13) & "" & Chr(10) & "ORDER BY `Tbl Commandes`.NumCpte")
.Name = "Ma requête ESSAI"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub