Sub test()
Dim Cn As String, Sql As String, Rs As Object
Cn = GenereCSTRING(Xls, Base:=ThisWorkbook.FullName, Titre:=True)
With ThisWorkbook.Sheets("dysorthographie")
With .ListObjects("dysorthographie")
If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
End With
Sql = "select FIRST([Année/ Mois]),FIRST([saison]),[MARCHE],[incoterm],[montant_marchandise] ,FIRST([Année]),FIRST([Mois])" & _
"from [Base$] GROUP BY [MARCHE],[incoterm],[montant_marchandise]"
.Range("A2").CopyFromRecordset ExecuteRequete(Sql, Cn)
.Activate
End With
End Sub