Bonjour,
on peut faire plus simple : empêcher la sélection (et donc toute modification) sans le mot de passe :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If InputBox("Plage protégée", "Mot de passe") <> "pw" Then Target.Offset(, 1).Select
End If
End Sub
même plus besoin de protéger ta feuille si c'était juste pour ça.
Et dans Révision tu as aussi : Permettre la modification des plages.
Les identifiants autorisés peuvent modifier les plages définies sans déprotéger la feuille.
eric