D'accord ! En tout cas, quelqu'un a pris soin de masquer et protéger l'accès à cette liste donc pensez à remasquer l'onglet ensuite (clic droit/Masquer) puis le nom :
Sub PourMasquer()
thisworkbook.names("TSS").visible = false
end sub
Et d'ailleurs, pour que l'opération se fasse naturellement dans un sens comme dans l'autre :
Sub PourMasquerAfficher()
with thisworkbook.names("TSS")
sname = Replace(Replace(Split(.RefersTo, "!")(0), "=", ""), "'", "")
.visible = not .visible
end with
with sheets(sname)
.visible = not .visible
end with
end sub
Il faut que la feuille et le nom soient tous 2 masqués ou affichés au départ.
Bonne soirée à vous aussi,