Function NBJSMois(jour As Byte, mois As Byte, an%) As Byte
Dim deb&, fin&, d&
deb = DateSerial(an, mois, 1)
fin = DateSerial(an, mois + 1, 0)
NBJSMois = Evaluate("INT((" & fin & "-WEEKDAY(" & fin & "-(" & jour & "-1),2)-" & deb & "+8)/7)")
End Function