Function Tot1(dat As Variant, horaire$)
Dim dat1#, test1 As Boolean, test2 As Boolean, a#(1)
dat1 = dat.Value2 'évite la conversion du calendrier 1904
test1 = Application.CountIf([Férié], dat1) = 0 And Weekday(dat) > 1
test2 = Application.CountIf([Férié], dat1 + 1) = 0 And Weekday(dat + 1) > 1
Calcul test1, test2, horaire, a
Tot1 = a 'vecteur ligne de 2 éléments
End Function