Verrouiller 7 cellules sur 9 si 2 sont déjà remplies

Private Sub Worksheet_Change(ByVal Target As Range)
' interdire la saisie de plus de 2 fois la même année dans la plage pl
    Const pl As String = "A2:A10"    ' adapter la plage

    Dim Dict As Variant, cle As String, lig As Long
    Dim datas, ok As Boolean
    Set Dict = CreateObject("Scripting.Dictionary")

    datas = Range(pl).Value
    For lig = 1 To UBound(datas)
        If datas(lig, 1) <> 0 Then
            cle = Year(datas(lig, 1))
            If Dict.exists(cle) Then
                ' année  connue
                If Dict.Item(cle) = 2 Then
                    MsgBox "Année " & cle & " déjà présente 2 fois."
                    Application.EnableEvents = False
                    Application.Undo
                    Application.EnableEvents = True
                    Exit For
                Else
                    ' compter utilisation
                    Dict.Item(cle) = Dict.Item(cle) + 1
                End If
            Else
                ' nouvelle année
                Dict.Item(cle) = 1
            End If
        End If
    Next lig
End Sub