Dupliquer du code VB par une macro

[toony.m]

Bonjour,

J'ai enregistré une macro pour dupliquer une feuille Excel.
Tout se copie parfaitement sauf le code VB qui est associé à la feuille d'origine soit :

Option Explicit

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim i As Integer
With ActiveSheet
    .Rows.Hidden = False
    For i = .Cells(.Rows.Count, 2).End(xlUp).Row To 6 Step -1
        If .Cells(i, 1).Value < 1 Then .Rows(i).Hidden = True
        
    Next i
End With
Application.ScreenUpdating = True
End Sub

'ThisWorkbook.Sheets("Profil1").range("B6").interior.color
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Comment faire pour que cette nouvelle feuille possède ce code et pour qu'il s'execute svp?

 

[jp14]

Re : Dupliquer du code VB par une macro

Bonjour

Une piste : au lieu de copier les cellules faire une copie de la feuille.

JP