Merci pour ton retour, mais ça concerne pas une cellule mais les onglets
regarde le code si dessous
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...