Bonsoir,
réponse version débutant:
Sub SupprimerSub()
Dim classeur As Workbook 'classeur où se trouve procédure à zigouiller
Dim nom_procédure As String 'nom de la procédure à zigouiller
Dim nom_module As String 'nom d'un module qui va subir un régime
Dim debut_code As Integer 'numéro ligne où commence procédure à zigouiller
Dim longueur_code As Integer 'nombre ligne(s) de la procédure qu'on veut réduire à zéro
Dim code 'code-Module où se trouve procédure à zigouiller
Set code = classeur.VBProject.VBComponents(nom_module).CodeModule
debut_code = code.ProcStartLine(nom_procédure, vbext_pk_Proc)
longueur_code = code.ProcCountLines(nom_procédure, vbext_pk_Proc)
code.DeleteLines debut_code , longueur_code 'on supprime les lignes de
code de la procédure
classeur.save 'on enregistre les modifications
End Sub
Voilà,
Florian
ps: Au fait, dans quelle cas peut-on avoir intérêt à suppimer une
procédure?