VBA Supprimer noms dans gestionnaire de noms

Bonjour La communauté,

Je cherche un code qui permettrais de supprimer tout les noms dans le gestionnaire de noms sauf 1 (Onglets).

D'avance merci de votre aide.

Bonjour,
Un exemple.
Cdlt.

Public Sub DeleteNames()
Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        If nm.Name <> "Onglets" Then nm.Delete
    Next nm
End Sub

Bonjour Jean-Eric,
Au top merci.