Bonjour,
J'ai modifié ou créé les parties surlignées en créant une variable "Annee" au lieu de prendre l'année en cours dans le code existant. Essaye avec.
Sub Creation()
Dim NbJ As Long
Dim i As Byte
Dim Mois, LaDate, Annee
Mois = InputBox("Saisir numéro du mois (1 à 12)")
Annee = InputBox("Saisir l'année")
LaDate = DateValue("1/" & Mois & "/" & Annee)
NbJ = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(Annee, Mois, 1))))
Application.ScreenUpdating = 0
For i = 1 To NbJ
Sheets("Modèle").Copy After:=Sheets(i)
ActiveSheet.Name = i & "" 'Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), "dd_mm_yyyy")
ActiveSheet.Range("B3") = Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), " dddd dd mmmm yyyy")
ActiveSheet.Shapes.Range(Array("Image 1")).Delete
Selection.Cut
Next i
Call effacer
'Sheets("Modèle").Activate
End Sub