Sub test()
'Nécéssite d'activer la référence
'"Visual basic For Application Extensibility 5.3"
'
Dim Wb As Workbook
Set Wb = ActiveWorkbook
'Un autre exemple pour supprimer un procédure évènementielle
'/!\ Feuil1 correspond au CodeName de la feuille /!\
SupprimerMacroPrecise Wb, "Feuil1", "Worksheet_SelectionChange"
End Sub
Sub SupprimerMacroPrecise(Wb As Workbook, Mdl As String, NomMacro As String)
Dim Debut As Integer, Lignes As Integer
With Wb.VBProject.VBComponents(Mdl).CodeModule
Debut = .ProcStartLine(NomMacro, 0)
Lignes = .ProcCountLines(NomMacro, 0)
.DeleteLines Debut, Lignes
End With
End Sub