repertoire = ThisWorkbook.Path & "\"
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & repertoire & "DVSource.xls"
Set rs = cnn.Execute("SELECT colj,colk FROM MaBD2 where Colk='45-99-099'")
Sheets("Liste").[G2].CopyFromRecordset rs