Private Sub MaMacro(Niveau As Byte)
Dim WS As Worksheet
Select Case Niveau
Case 1
For Each WS In Worksheets
WS.Visible = True
WS.Protect Password:="cocotin"
Next
[COLOR=Red]'ici commence la sélection des [/COLOR][COLOR=Red]feuilles visible ou pas[/COLOR][COLOR=Red]
'xlSheethidden = cachée
'[B]les feuilles que vous importerais devrons elle aussi être visible ou pas pour l'utilisateur lambda[/B]
[/COLOR]
Niv3.Visible = False
PassifAvant.Visible = xlSheetVisible
PassifApres.Visible = xlSheetHidden
Actif.Visible = xlSheetHidden
MaSecondeMacro Me.Txb_ID_Util 'Transmission d'arguments pour Pias
Unload Acces
Case 2 [COLOR=Red]'ici c'est le niveau administrateur qui est appelé[/COLOR]
Call Admin
'Appel de la macro Admin en Module1
End Select
End Sub