Sub Calendjourfeuille()
Application.ScreenUpdating = False
année = Val(InputBox("Quelle année ?"))
If année = 0 Then Exit Sub
x = DateSerial(année, 1, 2)
y = DateSerial(année, 12, 31)
With ThisWorkbook
For i = x To y
If Weekday(i) <> vbSunday Then
.Sheets("Modèle").Copy after:=.Sheets(Sheets.Count)
ActiveSheet.Name = Format(i, "ddd dd-mmm-yyyy")
End If
Next i
End With
End Sub