Worksheets("Donnees").Select
code_stk = Range("A2").Value
code_art = Range("B2").Value
Worksheets("result").Select
Range("A1").Select
With Worksheets("result").ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DSN=DB2_STOKVIS;", Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT PRODUIP.prcart, PRODUIP.prlpro, PRODUIP.prcstk" & Chr(13) & "" & Chr(10) & "FROM STOKVIS.ADELFIC.PRODUIP PRODUIP WHERE PRODUIP.prcstk='" & code_stk & "' AND PRODUIP.prcart='" & code_art & "'" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = _
"Tableau_Lancer_la_requête_à_partir_de_DB2_STOKVIS"
.Refresh BackgroundQuery:=False
End With