Bonjour tinon
voici un petit code que j'utilise lorsque j'ai besoin de calculer des jours fériés.
LP indique le lundi de paques
j'espère que cela te rendra service
jour_ferie = False
A = Year(MaDate)
T = (((255 - 11 * (A Mod 19)) - 21) Mod 30) + 21
LP = DateSerial(A, 3, 2) + T + (T > 48) + 6 - ((A + A \ 4 + T + (T > 48) + 1) Mod 7)
Select Case MaDate
Case Is = LP, Is = LP + 38, Is = LP + 49, _
Is = DateSerial(MonAnnee, 1, 1), Is = DateSerial(MonAnnee, 5, 1), Is = DateSerial(MonAnnee, 5, 8), _
Is = DateSerial(MonAnnee, 7, 14), Is = DateSerial(MonAnnee, 8, 15), Is = DateSerial(MonAnnee, 11, 1), _
Is = DateSerial(MonAnnee, 11, 11), Is = DateSerial(MonAnnee, 12, 25)
jour_ferie = True
End Select
pascal