XL 2013 Dans calendrier automatique : interdire l'écriture dans plusieurs cellules selon les termes d'une autre cellule

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xrg, xcell, col&, jourSem&, laDate
Dim rgFerie As Range, estFerie As Boolean

  Application.ScreenUpdating = False
  Set xrg = Intersect(Range("DataPlanning"), Target)
  If xrg Is Nothing Then Exit Sub
  Application.EnableEvents = False
  For Each xcell In xrg
    col = 2 + 9 * ((xcell.Column - 2) \ 9)
    laDate = Cells(xcell.Row, col)
    If IsDate(laDate) Then jourSem = Weekday(Cells(xcell.Row, col), vbMonday)
    Set rgFerie = Sheets("Jours fériés").Range("Ferie2019").Offset(0, Range("f1") - 2019)
    estFerie = Application.WorksheetFunction.CountIf(rgFerie, laDate) > 0
    If laDate = "" Or jourSem >= 6 Or estFerie Then xcell.ClearContents
  Next xcell
  Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, UsedRange)
If Target Is Nothing Then Exit Sub
Dim fer As Range, col%, c As Range
Set fer = Sheets("Jours fériés").[3:13]
Application.EnableEvents = False
On Error Resume Next
For Each Target In Target
    If Not Target.HasFormula Then
        For col = Target.Column - 1 To 1 Step -1
            Set c = Cells(Target.Row, col)
            If c.HasFormula Then
                If Weekday(c, 2) > 5 Or Application.CountIf(fer, c) Then Target = ""
                Exit For
            End If
        Next col
    End If
Next Target
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [C:J,L:S,U:AB,AD:AJ], UsedRange)
If Target Is Nothing Then Exit Sub
Dim fer As Range, col%, c As Range
Set fer = Sheets("Jours fériés").[3:13]
Application.EnableEvents = False
On Error Resume Next
For Each Target In Target
    For col = Target.Column - 1 To 1 Step -1
        Set c = Cells(Target.Row, col)
        If c.HasFormula Then
            If Weekday(c, 2) > 5 Or Application.CountIf(fer, c) Then Target = ""
            Exit For
        End If
    Next col
Next Target
Application.EnableEvents = True
End Sub

If Weekday(c, 2) > 5 Or Application.CountIf(fer, c) Then Target = ""

If Weekday(c) = 1 Or Application.CountIf(fer, c) Then Target = ""