j' ai peut être parlé trop vite...!
Toujours la même chose , j' ai même subdivisé en trois...
Dim sQuery1 As String, sQuery2 As String, sQuery3 As String
sQuery1 = "SELECT DAYS.CMOIS, DAYS.IdEmp, Sum((Hour([DAYS]![HsTOTAL])*60)+Minute([DAYS]![HsTOTAL])) AS MsTOTAL," & _
" Sum((Hour([DAYS]![Hs00])*60)+Minute([DAYS]![Hs00])) AS Ms00," & _
" Sum((Hour([DAYS]![Hs25])*60)+Minute([DAYS]![Hs25])) AS Ms25,"
sQuery2 = " Sum((Hour([DAYS]![Hs50])*60)+Minute([DAYS]![Hs50])) AS Ms50," & _
" Sum((Hour([DAYS]![Hs100])*60)+Minute([DAYS]![Hs100])) AS Ms100"
sQuery3 = " FROM DAYS GROUP BY DAYS.CMOIS, DAYS.IdEmp;"
Set rs = sQuery1 & sQuery2 & sQuery3
l' erreur se situe toujours entre ... AS Ms100" et " FROM...