sub login()
dim Exc as Boolean, Exceptions
Exceptions=array("liste","Members","login")
for each Sh in thisworkbook.sheets
exc=false
for t=Lbound(Execptions) to Ubound(Exceptions)
if exceptions(t)=Sh.name then Exc=true
next t
Sh.visible=Iif(Exc,False,true)
next
worksheets("home").select
Bonjour...