Sub Sup_Fichier()
Dim FSO As Scripting.FileSystemObject
Dim Rep As Scripting.Folder
Dim Fichier As Scripting.File
Dim Dte
Set FSO = New Scripting.FileSystemObject
Set Rep = FSO.GetFolder("Q:\bilans") ' mettre le chemin du repertoire contenant les fichiers
For Each Fichier In Rep.Files
Dte = Fichier.DateCreated
If CDate(Left(Dte, 10)) <= Date - 1 Then Fichier.Delete
Next
Set FSO = Nothing
Set Rep = Nothing
End Sub