Re

Bon j'ai essayé mais ca ne veux pas
voici mon code test qui doit supprimer les macros de la feuille 1 se nommant monBouton1_Click(), monBouton2_Click(),....... monBouton25_Click(),

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Bouton223_QuandClic()
 
Dim Debut As Integer, Lignes As Integer
Dim NomMacro As String
 
NomMacro = "monBouton" & i
 
For i = 1 To 25
 
    With ThisWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    Debut = .ProcStartLine(NomMacro, 0)
    Lignes = .ProcCountLines(NomMacro, 0)
    .DeleteLines Debut, Lignes
End With
 
 Next i
 
End Sub

total erreur d'execution '35'
sub ou fonction non definie a la ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Debut = .ProcStartLine(NomMacro, 0)
un ptit indice serait le bienvenue.