Macro vider une feuille chaque soir

Bonjour
Dans le cas présent, il n'efface que la feuille 1

Sheets("Feuil1")

A vous de mettre le nom de votre feuille ainsi que les plages à effacer.

Rappel: la macro "Sub Effacement" est à mettre dans un module classique (pas dans ThisWorkbook ni dans un module de feuille).
Cdlt

Bonjour
A copier dans le module ThisWorkbook

Private Sub Workbook_Open()
    Application.OnTime TimeValue("00:00:00"), Procedure:="Effacement"
End Sub

A copier dans un module classique, (mettez la cellules à effacer à la place de "A10:C10")

Sub Effacement()
    Sheets("Feuil1").Range("A10:C10").ClearContents
End Sub

Cdlt