Une solution si tu ne veux pas passer par la planification de tâches:
A coller dans ThisWorkbook (Fonctionnera pendant 365 jours d'affilée maximum):
Private Sub Workbook_Open()
Run "Macro1"
Temps_attente = 0
For i = 1 To 365
Temps_attente = Temps_attente + TimeValue("24:00:00")
Application.OnTime Now + Temps_attente, "Macro1"
Next i
End Sub
A coller dans un nouveau module (il faut supprimer la macro de la feuil1):
Sub Macro1()
Worksheets("Feuil1").Range("A2").Value = 1
Worksheets("Feuil1").Range("A3").Value = 5
Worksheets("Feuil1").Range("A4").Value = 8
Worksheets("Feuil1").Range("A5").Value = 9
Worksheets("Feuil1").Range("A6").Value = 4
Worksheets("Feuil1").Range("A7").Value = 8
End Sub