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
Merci de vote aide!!!