Copie feuille sans code

[BEABOU]

Bonjour,

Dans une procédure je copie une feuille qui contient une procédure évenementielle.
J'aimerais la copier mais sans ce code.
Est-ce possible ???

Merci.
Beabou

 

[Kobaya]

Re : Copie feuille sans code

Bonjour BEABOU,

J'ai trouvé la solution ici :Ce lien n'existe plus.

Sub EffaceCodeFeuille(NomFeuille As String)
    With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
        .DeleteLines 1, .CountOfLines
      '  .CodePane.Window.Close
    End With
End Sub