Function Minutes&(deb As Date, fin As Date)
Dim j1&, j2&, h1#, h2#, i&, jour&
j1 = Int(deb): j2 = Int(fin)
h1 = deb - j1: h2 = fin - j2
If Weekday(j1, 2) > 5 Or Application.CountIf([Feries], j1) Then h1 = 0
If Weekday(j2, 2) > 5 Or Application.CountIf([Feries], j2) Then h2 = 1
For i = j1 To j2
If Weekday(i, 2) < 6 And Application.CountIf([Feries], i) = 0 Then jour = jour + 1
Next
Minutes = 1440 * (jour - h1 + h2 - 1)
End Function