Blocker une cellule suivant ça valeur

bonjour

j'ai un petit soucis que je n'arrive pas a résoudre car avec le vba on est pas très copain.

j'avais fait un planning horaire pour moi et des collegues de travail avec des mise en forme conditionnel et formule.

j'avais demande de l'aide pour du vba pour y ajouté un mot férié suivant condition de date.

tout fonctionne a merveille mais j'aurai voulu locke la cellule qui contient le mot férié dans le calendrier et l'unlock quand on change la date qui modifie l'emplacement des jours férié.

je vous met le code vba qui met le mot férié dans le planning.

Sub Fer()
Dim Cel As Range
For Each Cel In Feuil1.Range("B5:AK35")
If Cel = "Férié" Then
Cel = ""
End If
Next Cel

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

j'ai essayer

Selection.Locked = True

mais ça m'a tout verrouillé ou en erreur donc j'ai du oublié quelque chose a un endroit mais je ne voit pas où.

j'ai trouver une solution ,je ne sait pas si cela est l'idéal mais cela fonctionne.

Sub Fer()
Dim Cel As Range
ActiveSheet.Unprotect
Application.EnableEvents = False
For Each Cel In Feuil2.Range("B5:AK35")
If Cel = "Férié" Then
Cel.Locked = False
Cel = ""
End If
Next Cel
For Each Cel In Feuil2.Range("B5:AK35")
If Application.WorksheetFunction.CountIf(Range("Fer"), Cel) Then
Cel.Offset(, 2) = "Férié"
Cel.Offset(, 2).Locked = True
End If
Next Cel
ActiveSheet.Protect
Application.EnableEvents = True
End Sub

si solution plus propre je suis preneur ^^