Dim myFso, myFile, myFolder, ssrepert
Set myFso = CreateObject("Scripting.FileSystemObject")
Set myFolder = myFso.GetFolder("C:\Users\PC\Desktop\dupont\")
For Each ssrepert In myFolder.SubFolders
For Each myFile In ssrepert.Files
If DateDiff("d", myFile.Datecreated, Now) > 15 Then myFile.Delete True
Next myFile
Next ssrepert