calcul jour férié fixe

Bonjour,
Je cherche à enlever un jour à chaque fois qu'un jour férié est présent dans le mois.
Je n'ai pas sût traiter en une fois, il a fallut qu'à chaque fois qu'un jour férié tombe, j'applique mon calcul.
Je vous expose la partie qui m'embête ci-dessous
Si avez plus simple je suis ouvert aussi


Dim A, B, C, D, E, F, G, H
A = DateValue("01/01/" & Year(y))
B = DateValue("01/05/" & Year(y))
C = DateValue("08/05/" & Year(y))
D = DateValue("14/07/" & Year(y))
E = DateValue("08/15/" & Year(y))
F = DateValue("01/11/" & Year(y))
G = DateValue("11/11/" & Year(y))
H = DateValue("25/12/" & Year(y))
If Day(A) = Month(m) And Weekday(A) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(B) = Month(m) And Weekday(B) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(C) = Month(m) And Weekday(C) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(D) = Month(m) And Weekday(D) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(E) = Month(m) And Weekday(E) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(F) = Month(m) And Weekday(F) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(G) = Month(m) And Weekday(G) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(H) = Month(m) And Weekday(H) < vbSaturday Then
Range("M3") = Range("L3") - 1
End If
End If
End If
End If
End If
End If
End If
End If

merci à vous