La suppression de noms dans le classeur n’est pas un problème. Avec la commande

ActiveWorkbook.Names("zoneNom").Delete

vous pouvez supprimer un seul nom de votre classeur. Si, d’autre part, vous souhaitez supprimer tous les noms de votre classeur, utilisez la macro suivant:

Sub TousLesNomsDansUnClasseur()
Dim zoneNom As Object
For Each zoneNom In ActiveWorkbook.Names
zoneNom.Delete
Next
End Sub

Commentaires

■ Définissez d’abord une variable d’objet. Utilisez ensuite la liste Noms pour accéder à tous les noms du classeur et utilisez la méthode Delete.
■ Par ailleurs, dans le dernier exemple, vous n’avez pas besoin de spécifier une instruction On Error. Si aucun nom n’est défini dans le classeur, la macro se termine toujours normalement.