Option Explicit
Sub Fer()
Dim Cel As Range
For Each Cel In Feuil1.Range("B5:AI35")
If Cel = "Férié" Then Cel = ""
Next Cel
For Each Cel In Feuil1.Range("B5:AI35")
If Application.WorksheetFunction.CountIf(Range("Fer"), Cel) Then Cel.Offset(, 2) = "Férié"
Next Cel
End Sub