Sub Verrouiller()
Deproteger
With [E8]
.Validation.Delete
If .Parent.Shapes("caseacocher").ControlFormat = xlOn Then
.Locked = True
Else
.Locked = False
.Validation.Add xlValidateList, Formula1:="Je suis d'accord,Je suis partagé,Je ne suis pas d'accord"
End If
End With
Proteger
End Sub