Public Function Feries(ByVal Annee As Integer, ByVal Mode As Integer) As Variant
Select Case Mode
Case 1
Feries = DateSerial(Annee, 1, 1)
Case 2
Feries = DateAdd("d", 0, LundiPaques(Annee))
Case 3
Feries = DateSerial(Annee, 5, 1)
'...
End Select
End Function