Sub Rognerunrectangleavecuncoi_QuandClic()
' Rognerunrectangleavecuncoi_QuandClic Macro
' Macro enregistrée le 20/12/2011 par l'agrafe
Dim MDP
MDP = InputBox("Saisir le mot de passe")
If MDP = "steph34" Then
Sheets("Feuil2").Activate
Else
MsgBox "mot de passe faux"
Exit Sub
End If
End Sub