Noms invisibles, references etranges

Bonjour,

je bosse en ce moment sur un fichier monstrueux qui est en evolution
constante dans mon service depuis des annees et qui contient aujourd'hui pres
de 168 feuilles differentes qui sont toutes plus ou moins des copies les unes
des autres et qui proviennent souvent d'autres fichiers au depart, ce qui
cree un beau chaos de liens et de noms.

Je voulais faire une macro pour lister tous les noms utilises dans le
classeur pour pouvoir ensuite trier ceux qui sont vraiment utiles et virer
les centaines de parasites.

J'ai donc ecrit la macro suivante, qui marche parfaitement quand je la teste
sur des fichiers normaux:

Sub listnames()

Dim truc As Variant

For Each truc In ActiveWorkbook.Names
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = truc.Name
ActiveCell.Offset(0, 1).Value = truc
Next

End Sub

Je me retrouve avec pres de 2000 noms dont la grande majorite est invisible
dans le menu inserer/nom/definir
La plupart de ces noms invisibles font reference a des trucs
incomprehensibles du style:

={"fleisch",#N/A,FALSE,"WG HK";"food",#N/A,FALSE,"WG
HK";"hartwaren",#N/A,FALSE,"WG HK";"weichwaren",#N/A,FALSE,"WG HK"}

Quelqu'un a une idee de ce que sont ces trucs??

Christophe.