Private Sub Worksheet_Activate()
If lemdp = "oui" Then
Sheets("Feuil2").Select
lemdp = " "
Exit Sub
End If
Sheets("Feuil2").Visible = False
Message = "Entrez le mdp"
lemdp = InputBox(Message)
If lemdp <> "oui" Then
Sheets("Feuil1").Select
Else
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
End If
End Sub