Dim date_1, date_2 As Date
date_1 = Range("b4")
date_2 = Range("f4")
texte_SQL = "SELECT brut.date, brut.connexion_svi, brut.serv_op, brut.adandons_dissuades, brut.qlt_serv_pris30s, brut.qlt_serv_traite_op, brut.tps_attente_max, brut.appel_informati, brut.perdu, brut.nb_agent FROM brut where date BETWEEN #" & date_1 & "# and #" & date_2 & "# ORDER BY brut.date;"