Bonjour
pas de souci
Pour chaque cellule (Cel) de la sélection on vérifie si la date dans la colonne n'est ni un Samedi ni un dimanche par
(Weekday(Cells(3, Cel.Column).Value, vbMonday) < 6)
Cette fonction retourne le numéro du jour de la semaine, en commençant par 1 = Lundi
Un petit plus je "neutralise" le week-end si le forçage est en place
((Weekday(Cells(3, Cel.Column).Value, vbMonday) < 6) Or We = True)
Ensuite on vérifie si la date fait partie des jours fériés
Application.CountIf(Sheets("Fériés").Range("A3:A20"), Cells(4, Cel.Column)) = 0
Don on écrit si (le jour de la semaine est < 6 OU que le forçage soit mis) ET que ce n'est pas un jour férié