Supprimer toutes les macros sauf une

Bonjour, je suis à la recherche d'une macro qui permettrait de supprimer la totalité des macros présentes dans le classeur, à l'exception d'une seule :

Private Sub Worksheet_Change(ByVal Target As Range).

Savez-vous si cela est possible et comment cela pourrait se traduire en VBA pour que je puisse essayer ?

Merci par avance.

Damien

Bonsoir

Quelle est le nom de la feuille dans laquelle se trouve le code

Voir le fichier serait mieux...

Cordialement

Merci Dan pour ton intention.

Je viens de trouver et remanier un code, et ça semble bien bien marcher. (efface les macros, userformes, procédures... tout en permettant d'en garder certaines intactes).

Si ça peut servir à d'autres !

Sub erase_macros()

Dim VBCOMPE As Object

For Each VBCOMPE In ThisWorkbook.VBProject.VBComponents

If VBCOMPE.Name <> "Feuille dans laquelle on veut garder intacte la ou les macros" Then

Select Case VBCOMPE.Type

Case 1 To 3

ThisWorkbook.VBProject.VBComponents.Remove VBCOMPE

Case Else

With VBCOMPE.CodeModule

.DeleteLines 1, .CountOfLines

End With

End Select

End If

Next VBCOMPE

End Sub