Bonjour a tous
Voila jaimerais savoir comment faire pour avoir une macros qui supprime toutes macros sauf celle dont jai encore besoin
jai + de 20 macros et jaimerais quil ne men reste que 2
biensur les 2 macros restantes seront les macros que je desire garder voila mon code actuel
Sub DeleteAllVBA()
Dim VBComp As Variant
Dim VBComps As Variant
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case 1 To 3
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp
End Sub
Merci d'avance