J'ai un classeur Excel dans lequel je dois supprimer les macros avant de l'enregistrer. J'ai essayé d'enregistrer une macro pour voir les commandes à utiliser, mais quand j'arrête l'enregistrement, la macro est vide.

Quelques lignes extraite de mon perso.xls qui te permettent d'effacer des modules, des userforms, code de thisworkbook et code feuille

sub EffaceCodeFeuille(NomFeuille As String)
 With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets _
 (NomFeuille).CodeName).CodeModule
 .DeleteLines 1,
 .CountOfLines
 .CodePane.Window.Close
 end with
 end sub

sub
 EffaceCodeThisWbk()
 With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
 .DeleteLines 1, .CountOfLines
 .CodePane.Window.Close
 End With
 end sub

sub EffaceUserForm(MonUserForm As String)
 ActiveWorkbook.VBProject.VBComponents.Remove
 ActiveWorkbook.VBProject.VBComponents(MonUserForm)
 end sub

sub SuppModule(nModule As String)
 Dim VBC As VBComponent
 With ActiveWorkbook.VBProject
 For Each VBC In .VBComponents
 If VBC.Name = nModule Then .VBComponents.Remove VBC
 Next VBC
 End With
 end sub

IMPORTANT : tu dois charger la bibliothèque Microsoft Visual Basic for Applications Extensibility 5.3