Private Sub CommandButton1_Click()
Dim strtst As String
strtst = Dir('')
Do While strtst <> ''
If IsDate(Mid(strtst, 9, 2) & '/' & Mid(strtst, 11, Len(strtst) - 16) & '/' & Mid(strtst, Len(strtst) - 5, 2)) = False Then GoTo suivant
If CVDate(Mid(strtst, 9, 2) & '/' & Mid(strtst, 11, Len(strtst) - 16) & '/' & Mid(strtst, Len(strtst) - 5, 2)) < Now() - 7 Then
Kill strtst
End If
suivant:
strtst = Dir
Loop
End Sub