Function DELAI(recep As Date, reponse As Date) As Date
Dim jour As Long
Application.Volatile
While Weekday(recep, 2) > 5 Or IsNumeric(Application.Match(recep, [Feries], 0))
recep = DateValue(recep) + 1 + TimeValue("8:0")
Wend
DELAI = reponse - recep
For jour = DateValue(recep) To DateValue(reponse)
If Weekday(jour, 2) > 5 Or IsNumeric(Application.Match(jour, [Feries], 0)) Then DELAI = DELAI - 1
Next
End Function