Function GetDateOuvrée(ByVal d As Long, Fériés As Variant, Optional incr As Integer = 1)
Dim n As Integer
Do
d = d + 1
If IsError(Application.Match(d, Fériés, 0)) And Weekday(d, 2) < 6 Then n = n + 1
Loop While n < incr
GetDateOuvrée = d
End Function