Répétitions macro

[snake38]

Bonjour,

Voila en fait j'ai exactement cette macro

Sub New_onglet()
Dim Mois_act As Variant
Dim Date_act As Date

Cells.Select
Selection.Copy

Mois_act = Mid(Date, 4, 2)
Select Case (Mois_act + 1)
Case 1
Sheets.Add.Name = 'Janvier 2005'
Case 2
Sheets.Add.Name = 'Février 2005'
Case 3
Sheets.Add.Name = 'Mars 2005'
Case 4
Sheets.Add.Name = 'Avril 2005'
Case 5
Sheets.Add.Name = 'Mai 2005'
Case 6
Sheets.Add.Name = 'Juin 2005'
Case 7
Sheets.Add.Name = 'Juillet 2005'
Case 8
Sheets.Add.Name = 'Août 2005'
Case 9
Sheets.Add.Name = 'Septembre 2005'
Case 10
Sheets.Add.Name = 'Octobre 2005'
Case 11
Sheets.Add.Name = 'Novembre 2005'
Case 12
Sheets.Add.Name = 'Décembre 2005'
End Select

ActiveSheet.Paste
Cells(2, 1).Value = ActiveSheet.Name
Range('A5:E79').ClearContents
ActiveSheet.Move , Worksheets(Worksheets.Count)
Selection.ClearComments
End Sub

Et j'aimerai pouvoir la répéter a chaque nouvelle feuille que je veux créer en changeant les mois bien sur

Merci de vote aide!!!

 

[CBernardT]

Bonjour Snake38 et le forum,

Si j'ai bien compris ?

Macro :

Sub OngletMois()
Dim i As Byte

Application.ScreenUpdating = False
For i = 1 To 12
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
Sheets('Modèle').Cells.Copy
Select Case i
Case 1
ActiveSheet.Name = 'Janvier 2005'
Case 2
ActiveSheet.Name = 'Février 2005'
Case 3
ActiveSheet.Name = 'Mars 2005'
Case 4
ActiveSheet.Name = 'Avril 2005'
Case 5
ActiveSheet.Name = 'Mai 2005'
Case 6
ActiveSheet.Name = 'Juin 2005'
Case 7
ActiveSheet.Name = 'Juillet 2005'
Case 8
ActiveSheet.Name = 'Août 2005'
Case 9
ActiveSheet.Name = 'Septembre 2005'
Case 10
ActiveSheet.Name = 'Octobre 2005'
Case 11
ActiveSheet.Name = 'Novembre 2005'
Case 12
ActiveSheet.Name = 'Décembre 2005'
End Select
ActiveSheet.Paste
Cells(2, 1).Value = ActiveSheet.Name
Range('A5:E79').ClearContents
Range('A5:E79').ClearComments
Next i
Application.ScreenUpdating = True
End Sub

Cordialement

Bernard