Supprimer macro sous excel 2003

[Troll]

(erf double post... mais c'est pour être sûr que tu le vois )

J'ai aussi ce code si avec celui d'avant ça ne fonctionne pas :

Sélectionner - Agrandir / Réduire

Sub del_macro()


Dim VBC As Object


 


With ActiveWorkbook.VBProject


    For Each VBC In .VBComponents


        If VBC.Type = 100 Then


            With VBC.CodeModule


                .DeleteLines 1, .CountOfLines


                .CodePane.Window.Close


            End With


        Else


            .VBComponents.Remove VBC


        End If


    Next VBC


End With


 


End Sub

A très bientôt.