Peux-tu essayer avec ce code :
Mais il t'effacera toutes les plages nommées (il ne peut pas y avoir de doublons...)
Code:
Option Explicit
Sub Del_Liste_Noms()
Dim CelNom As Name
For Each CelNom In ActiveWorkbook.Names
If Not CelNom.RefersToRange Is Nothing Then
CelNom.Delete
End If
Next CelNom
End Sub
Bonsoir Leditvalentin, JCGL,
Aller dans "formules"=>"gestionnaire de noms"=>sélectionner les listes à supprimer et cliquer sur "supprimer".
Cordialement