Sub RecupTableurSQL()
'Microsoft ActiveX DataObject doit être coché
répertoire = ThisWorkbook.Path & "\"
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & épertoire & "ADOsource.xls"
Set rs = cnn.Execute("SELECT nom,Prenom,Salaire FROM MaBD where nom<>''")
[A2].CopyFromRecordset rs
End Sub