copier et coller l contenu d'une feuile excel sur plusieurs feuilles

[mouha0503]

bonjour chers membres du forum, je debutant en vba, et je voudrais de l'aide.
je suis entrain de creer un fichier qui me permettra de mettre pour les noms des feuilles (Chaque jour de l'année = une feuille (soit 365 feuilles)) j'ai deja le code:

Sub Calendjourfeuille()
Application.ScreenUpdating = False
année = Val(InputBox("Quelle année ?"))
If année = 0 Then Exit Sub
x = DateSerial(année, 1, 1)
Y = DateValue("31 décembre " & année)
For I = 0 To Y - x
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(x + I, "dd-mmm-yyyy")
Next
End Sub

mais je voudrais a partir de la premiere feuille copier le contenu et le sur toutes les feuilles qui sont dans le classeur; et pour ca je demande si vous n'avez pas un code qui me permettra de le faire, merci d'avance.