Merci Amadéus pour ta réponse mais aurais tu la possiblité de m'envoyer un fichier comme exemple
Merci d'avance
et surtout tous les dossiers ont plusieurs feuilles que je ne sais définir de 5 à 45 feuilles
et l'exemple est pour une feuille et la date n'est pas définie comme dans le fichier IV1
Code dans thisWorkBook
Code: Tout sélectionner
Private Sub Workbook_Open()
Dim today As Date
today = Date
If [a1] = Date Then
Call Effacer
End If
End Sub
Code dans Module1
Code: Tout sélectionner
Sub Effacer()
Sheets("Feuil1").Select
Range("B9:Z150").ClearContents
Range("B8").Select
End Sub
Encore merci pour ton aide