Effacer sous condition ?

Bonsoir, j'ai ce code pour mon fichier, mais j'ai un soucis, je voudrais que la feuille soit effacée seulement à la première ouverture journalière. Merci pour votre aide.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Feuil1.Activate
Range("A3:J27").ClearContents
End Sub

Bonsoir

A tester

J'ai mis le 25, mais ça ne change rien.

Bonsoir

Le 25 quoi ?

Tu l'as mis où ?

Pour tester rajoutes 1 à Date

If ActiveWorkbook.BuiltinDocumentProperties.Item(12) < Date + 1 Then

Oui impeccable, merci à toi.