Sub Macro1()
Dim n As Name
ActiveWorkbook.Names.Add Name:="test", RefersToR1C1:="=Feuil1!R1C1", Visible:=False
Application.Dialogs(xlDialogDefineName).Show
MsgBox "Afficher les noms masqués"
For Each n In ActiveWorkbook.Names
n.Visible = True
Next n
Application.Dialogs(xlDialogDefineName).Show
End Sub