Sub test()
D1 = DateSerial(2011, 12, 22)
D2 = DateSerial(2011, 12, 26)
an = Year(Date)
For m = LBound(Fer(an)) To UBound(Fer(an))
lesferies = lesferies & CStr(Fer(an)(m)) & ","
Next m
For n = D1 To D2
If Weekday(n) <> 1 And Weekday(n) <> 7 And InStr(lesferies, CStr(CLng(n))) = 0 Then
NBJours = NBJours + 1
End If
Next n
MsgBox (NBJours)
End Sub