Calcul du jour d'expedition

bonjour a tous

je cherche comment faire pour calculer le jour d’expédition en fonction du jour de livraison en tenant compte des feriés

sachant que les jours d’enlèvement sont (lundi,mardi,vendredi) et qu'il y a des clients en A pour B & d'autre en A pour C

un membre du forum m'avais fait une sub qui fonctionnais très bien pour des jours d’enlèvement (lundi , mardi, jeudi) mais les jours d’enlèvement ayant changé je n'arrive pas a modifier

amicalement

Sub livraison()    'Macro pour le' calcul du jour de preparation
    Dim dte As Date, C As Range, d&, e&, x&
    Feuil7.Unprotect Feuil1.Cells(1, 1)
    Application.EnableEvents = False
    If Not IsDate(Range("H5")) And Range("H5") <> "" Then 'h5 est la cellule contenant la date de livraison
        MsgBox "Saisie incorrecte.", 16
        Range("H5") = ""
        GoTo Fin
    End If
    d = IIf(Range("F3") = "A pour B", 1, 2)
    dte = Range("H5")
    x = 0
boucle:
    dte = WorksheetFunction.WorkDay(dte, -d + x, Range("Feries"))
    If Weekday(dte) = 4 Or Weekday(dte) = 6 Then
        dte = dte - 1
        x = x + d
        GoTo boucle
    End If
Fin:
    If Range("H5") = "" Then
        Range("H4") = ""
    Else
        Range("H4") = dte 'h4 est la cellule qui doit contenir le jour de preparation
    End If
    Range("B150") = Range("H4") + 120    'Affiche la DLUO a 120 jours en pied de page
    Application.EnableEvents = True
    Feuil7.Protect Feuil1.Cells(1, 1)
End Sub

Bonjour,

Merci de joindre un fichier à ta demande pour une aide adaptée du forum.

Cdlt.