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 : Sélectionner tout - Visualiser dans une fenêtre à part
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