Supprimer la macro "Workbook_Open"

Bonsoir le Forum,
Je voudrai supprimer la macro "Workbook_Open" située dans le ThisWorkbook.
Est-ce que cela est possible ?
Si oui, comment ?
J'ai testé ce bout de code mais j'ai une erreur 1004 (Erreur définie par l'application ou par l'objet)

Dim Debut As Integer, Lignes As Integer

With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
Debut = .ProcStartLine("Workbook_Open", 0)
Lignes = .ProcCountLines("Workbook_Open", 0)
.DeleteLines Debut, Lignes
End With

En cochant référence "Microsoft visual Basic For Application Extensenbility 5.3"

Merci pour l'aide
Cdt