Re : Supprimer les macros apres enregistrer sous?
Cette macro supprime tout le code vba
Sub SupprimerCode()
Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents
Set Classeur = ActiveWorkbook
Set VBComps = Classeur.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
'1 = vbext_ct_StdModule '2 = vbext_ct_ClassModule '3 = vbext_ct_MSForm
Case 1, 2, 3: VBComps.Remove VBComp
Case Else: VBComp.CodeModule.DeleteLines 1, VBComp.CodeModule.CountOfLines
End Select
Next VBComp
End Sub
il te faut ajouter un référence
Microsoft Visual Basic for Applications Extensibility
Si le classeur de cette macro est le classeur actif, tu perds aussi cette macro.
Salutations