Function NbSemainesMois(madate As Date)
Dim d1 As Date, d2 As Date
Application.Volatile
d1 = DateSerial(Year(madate), Month(madate), 1)
d2 = DateSerial(Year(madate), Month(madate) + 1, 0)
NbSemaine = (DatePart("ww", d2, 2, 2) - DatePart("ww", d1, 2, 2)) + 1
End Function