Sub groupe()
'Outils/Références Microsoft ActiveX Data Object 2.8
ActiveWorkbook.Names.Add Name:="MaBd", RefersTo:=Sheets(1).[A1].CurrentRegion
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name
Sql = "select vendeur,count(*) as ttal from (SELECT distinct vendeur,cmd From MaBD) group by vendeur"
Set rs = cnn.Execute(Sql)
[d2].CopyFromRecordset rs
rs.Close
cnn.Close
Set rs = Nothing
End Sub