Function NbJours(deb As Date, fin As Date) As Long
Dim n As Long, d As Long
deb = Int(CDec(deb)) 'au cas où deb comprendrait des heures
NbJours = DateDiff("d", deb, fin)
For n = 1 To NbJours
d = deb + n
If Weekday(d) = 1 Or IsNumeric(Application.Match(d, [Feries], 0)) Then _
NbJours = NbJours - 1
Next
End Function