Copie de VBA lors de copie de feuille

Bonjour

Ce petit code copie la feuille dite "Base" mais pas le code de cette dernière ; or celle-ci à des Private Sub Worksheet_Change(ByVal Target As Range) implorantes. Comment les copier avec la feuille ?

Sub AjouterFeuilleAvecEmplacement()

Sheets("Base").Select

Range("A1:R25").Select

Selection.Copy

Sheets.Add After:=Sheets(Sheets.Count)

ActiveSheet.Paste

Sheets(Sheets.Count).Range("B1") = Sheets(Sheets.Count - 1).Range("B1") + 1

Sheets(Sheets.Count).Name = "Semaine " & Sheets(Sheets.Count).Range("B1")

End Sub

bonjour,

Coller cette macro dans le module ThisWorkbook puis y coller le code de la feuille.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   If Left(Sh.Name, 6) = "Semaine" Then
      'ici le code qui se trouvait dans ton modèle
      '......
   End If
End Sub

Ensuite supprimer le Worksheet_Change du modèle.

A+

Super, merci beaucoup