Private Sub Worksheet_Activate()
M_d_p = InputBox("Mot de passe?")
If M_d_p = "Staple" Then
Me.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
Else
Exit Sub
End If
End Sub
Private Sub Worksheet_Deactivate()
Me.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End Sub