Calcul de durée en heure entre deux dates ( plage horaire et jours ouvrés )

Bonjour le forum,
Je cherche une formule ou fonction qui permettrait de calculer la durée en heures ouvertes entre deux dates.
Une méthode qui prendrait en compte les horaires 8h-12h et 14h-18h et les jours ouvrés (hors samedi et dimanche) mais également les jours fériés.
J’ai déjà trouvé une formule mais elle ne fonctionne pas très bien. En effet sur une même date la formule ne me permet pas de calculer une différence d’heure entre 13H50 et 14H30 par exemple. Je ne sais pas pourquoi ça ne fonctionne pas au niveau de cette tranche horaire.
J’ai également essayé avec la formule suivante (merci quand même sonskriverez ) mais ça ne marche toujours pas et en plus de ça elle créé des beug :
Function HeureOuvrées(Début, Fin, PlageFériés)
For i = Début * 1 To Fin * 1 Step TimeValue("0:01")
If Hour(i) >= 8 And Hour(i) < 18 And Day(i) = Day(i + TimeValue("0:01")) _
And Application.CountIf([PlageFériés], CDate(Int(i)) * 1) = 0 _
And Weekday(CDate(Int(i)) * 1, 2) < 6 Then x = x + 1
Next
HeureOuvrées = x / 1440
End Function

Je cherche une âme charitable pour me venir en aide ?
Merci d'avance

Ps : Je ne comprends pas je n'arrive pas à compresser au mieux le fichier xls