Sub generer(annee As Long)
Dim dat As Date, i As Long
dat = DateValue("01/09/" & annee)
Application.ScreenUpdating = False
With ActiveSheet
.Name = "Compta " & Application.Proper(Format(dat, "mmmm yyyy"))
.[C2] = Application.Proper(Format(dat, "mmmm yyyy"))
End With
For i = 1 To 11
Feuil1.Copy After:=Sheets(Sheets.Count)
dat = DateAdd("m", 1, dat)
With ActiveSheet
.Name = "Compta " & Application.Proper(Format(dat, "mmmm yyyy"))
.[C2] = Application.Proper(Format(dat, "mmmm yyyy"))
End With
Next i
Feuil1.Select
End Sub