Problème verrouillage case à cocher

Private Sub ToggleButton1_Click()
Dim Reponse
Dim Cellule As Object
Select Case ToggleButton1
    Case True
        Reponse = MsgBox("Confirmez la remise à blanc des coches", vbDefaultButton2 + vbQuestion + vbYesNo, "ATTENTION")
        If Reponse = vbYes Then
            Range("PlageDoubleClic1").ClearContents
        End If
    Case False
        Reponse = MsgBox("Confirmez la mise en place de toutes les coches", vbDefaultButton2 + vbQuestion + vbYesNo, "ATTENTION")
        If Reponse = vbYes Then
            For Each Cellule In Range("PlageDoubleClic1")
                Cellule.Value = Chr(80)
            Next Cellule
        End If
End Select
End Sub