Supprimer noms en doublons lors de copie d'une worksheet d'un Workbook à un autre

Bonjour à tous,

J'aimerais créer dans ma macro VBScript un sub qui me permette de supprimer les noms en doublons suite à la copie de plusieurs feuilles excel vers un autre classeur. Les doublons ont la particularités d'avoir pour parents une feuille. J'ai donc trouvé un bout de code qui me permettrait de faire ça mais VBScript m'empechant de déclarer des variable "Name" cela m'est impossible. auriez vous une idée de la façon faire cette action?
Merci d'avance,
Misterart

Code:

---

1 2 3 4 5 6 7 8

Sub deleteNames() Dim theName as Name For Each theName In Names If TypeOf theName.Parent Is Worksheet Then theName.Delete End If Next End Sub

---

Salut

En VBScript on ne type pas les variables, si tu fait Dim theName theName va automatiquement être typé Objet par VBScript, d’où vient Names et Worksheet , il faut que ces variables soient globales pour être utilisée dans ta Sub deleteNames.