Bonjour,

Je souhaite faire une suppression de la procédure "Private Sub Worksheet_Change(ByVal Target As Range)" par l'intermédiaire d'une macro qui se lance après une première.
La première macro génère 12 feuilles qui dupliquent une base appelée TRAME et qui portent ensuite le du mois auquel elles correspondent.

Ce que j'essaie de faire est une boucle qui parcoure les 12 feuilles et supprime cette procédure et uniquement celle-ci rattachée à la feuille. J'ai mis le code suivant dans "Module1" après la macro de copie de feuilles avec une adaptation du code issu de :

http://www.developpez.net/forums/d56...-macros-macro/

Mais ça ne marche pas, avec une erreur qui se positionne sur la première ligne de With.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Supprimer_Code_Feuille()
 
Dim NomFeuille As String, i%
 
    For i = 1 To 12
        NomFeuille = MonthName(i)
        With ActiveWorkbook.VBProject.VBComponents _
            (ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
            .DeleteLines 1, .CountOfLines
            .CodePane.Window.Close
        End With
    Next i
End Sub
D'avance merci!