Pour gars niveau 3² : Comment "RESETer" la liste des zones noms sous Excel ?

Pour être clair :

Sous VB on peut définir un nom à une zone de cellules (utilisé pour une requête SQL par exemple)

sous excel :
On surligne la zone A1 à H12 et : [insertion], [nom], [définir] : toto
On surligne la zone A13 à H22 et : [insertion], [nom], [définir] : titi


sous VB :
{objet feuille xls}.Range("A1:H12").Name = "toto"
{objet feuille xls}.Range("A1:H12").Name = "titi"

LA QUESTION :
Comment sous VB effacer TOUS les noms que peut contenir une feuille excel ?

Un truc du genre :
{objet feuille xls}.ActiveSheet.Tous_les_Names.Clear

'Parcourir toutes les zones noms du classeur actif
For Each oName In ActiveWorkbook.Names
'Comparer la feuille concernée de la zone nom avec le nom de la feuille active
If oName.RefersToRange.Parent.Name = ActiveSheet.Name Then
'Supprimer la zone nom
oName.Delete
End If
Next


@+

wape


-------------------------------
Réponse au message :
-------------------------------

> Pour être clair :
>
> Sous VB on peut définir un nom à une zone de cellules (utilisé pour une requête SQL par exemple)
>
> sous excel :
> On surligne la zone A1 à H12 et : [insertion], [nom], [définir] : toto
> On surligne la zone A13 à H22 et : [insertion], [nom], [définir] : titi
>
>
> sous VB :
> {objet feuille xls}.Range("A1:H12").Name = "toto"
> {objet feuille xls}.Range("A1:H12").Name = "titi"
>
> LA QUESTION :
> Comment sous VB effacer TOUS les noms que peut contenir une feuille excel ?
>
> Un truc du genre :
> {objet feuille xls}.ActiveSheet.Tous_les_Names.Clear
>

Avec mes remerciements !
J'y aurais jamais pensé, même jamais trouvé...
Merci Wape.