Dim MaDate as Date, ReqSQL as String
MaDate = Range("A1").value
ReqSQL = "SELECT `2 X2 Calcul TJM`.mois1, `2 X2 Calcul TJM`.Trigramme, `2 X2 Calcul TJM`.Entite_operationnelle, `2 X2 Calcul TJM`.TJM1 FROM `C:\Users\Philippe.haumesser\Desktop\Database1.acc db`.`2 X2 Calcul TJM` `2 X2 Calcul TJM` WHERE (`2 X2 Calcul TJM`.mois1=" & month(madate) &") ORDER BY `2 X2 Calcul TJM`.Entite_operationnelle, `2 X2 Calcul TJM`.Trigramme"