Fonction jours fériés

Bonsoir à tous,

Dans le code suivant, je cherche à marquer les jours fériés, dans la colonne A, qui ont une correspondance dans la plage nommée "Fériés".

Mais voila, je me retrouve avec tous les jours de la liste marqués comme jours fériés.

Ou est l'erreur ?

Merci d'avance.

Bonsoir

Essayes cette macro

Option Explicit

Sub jFériés()

  With Sheets("Feuil1")
    With .Range("B2:B" & .Range("A" & Rows.Count).End(xlUp).Row)
      .Formula = "=IF(COUNTIF(fériés,A2)>0,""X"","""")"
      .Value = .Value
    End With
  End With
End Sub

Merci Banzai64.

Ca marche !