Sub test()
Dim annee As Integer, s As Worksheet
annee = Application.InputBox("Pour quelle année", , , , , , , 1)
If annee = 0 Then Exit Sub
For i = 1 To 12
Set s = Sheets.Add(, Sheets(Sheets.Count))
s.Name = MonthName(i) & " - " & annee
Next i
End Sub