Sub Planning()
Dim I, Z
Année = Val(InputBox("Voulez-vous créer le planning de quelle année ?"))
If Année = 0 Then Exit Sub
X = DateSerial(Année, 1, 0)
Y = DateValue("31 décembre " & Année)
Z = Y - X
For I = 1 To Z
Sheets("Planning").Copy After:=Sheets(I)
ActiveSheet.Name = Format(X + I, Application.Proper("dddd dd mmmm yyyy")) 'ICI
ActiveSheet.Range("A1") = "Planning du " & Format(X + I, "dddd dd mmmm yyyy")
Next I
End Sub