Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And Target.Count = 1 Then
Application.EnableEvents = False
mp = InputBox("Mot de passe? ")
If mp <> "toto" Then
Application.Undo
MsgBox "Annulé!"
End If
Application.EnableEvents = True
End If
End Sub