Deleta automatique de macros

Ca y est, j'ai trouvé comment, à partir d'une appli, supprimer toutes les macros d'autres appli, sauf celles de cette appli.
Dans mon exemple, le classeur 2, dans lequel je suis, ouvre les Classeurs 1 et 3 dans lesquels il y a des macros et les supprime, sans pour autant supprimer les siennes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Workbook_Open()
 Dim VBC As Object
    Workbooks.Open Filename:="C:\Documents and Settings\BELL\Mes documents\Classeur1.xls"
    GoSub del
    Workbooks.Open Filename:="C:\Documents and Settings\BELL\Mes documents\Classeur3.xls"
    GoSub del
Exit Sub
del:
With ActiveWorkbook.VBProject
    For Each VBC In .VBComponents
    If Not ActiveWorkbook.Name = "Classeur2.xls" Then
            If VBC.Type = 100 Then
 
            With VBC.CodeModule
                .DeleteLines 1, .CountOfLines
                .CodePane.Window.Close
            End With
 
        Else
            .VBComponents.Remove VBC
        End If
         End If
    Next VBC
End With
Return
End Sub

Bonne soirée à tous