Private Sub Workbook_Open()
If Day(Now) = 1 And Month(Now) = 10 Then
'remise à zero de la cellule
'par exemple
Sheets("Feuil1").Range("A1").Value = ""
End If
End Sub
à chaque ouverture, le classeur teste la date du jour, et regarde si on est le 1er octobre. (mois = 10 et jour = 1)
Attention cependant, si le 1er octobre le classeur n'est pas ouvert, il ne sera pas remis à zéro.
La solution que je te propose répond à ta question mais n'est pas complète.Il pourrait être judicieux de faire la chose suivante:
Dans une cellule, indiquer si le fichier a été mis à zéro.
S'il n'a pas été mis à zéro et qu'on a dépassé le 1er octobre, demander s'il faut le remettre à zero.