Bonjour,
Je ne pense pas que c'est possible en utilisant directement la protection, il faut "tricher" ^^
un essai par macro, mdp = 12:
Sub Macro1()
If ActiveSheet.ProtectContents = True Then
MsgBox ("feuille verrouillée")
Else
Range("K3").Select
ActiveCell.SpecialCells(xlCellTypeSameValidation).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$M$2:$M$7"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Attention"
.InputMessage = ""
.ErrorMessage = _
"Saisir uniquement une valeur ou un copier/coller de la liste."
.ShowInput = True
.ShowError = True
End With
End If
End Sub