Comment faire pour qu'un classeur se détruise à une date prévue ?

Ci-dessous une sub de Chip Pearson qui le fait (attention elle marche vraiment !) il ne te reste plus qu'à la lancer le jour désiré ...

sub Suicide()
 Dim FName As String
 Dim Ndx As Integer
 With ThisWorkbook
  .Save
  For Ndx = 1 To Application.RecentFiles.Count
    If Application.RecentFiles(Ndx).Path = .FullName Then
      Application.RecentFiles(Ndx).Delete
      Exit For
    End If
  Next Ndx
  .ChangeFileAccess Mode:=xlReadOnly
  Kill .FullName
  .Close SaveChanges:=False
 End With
 end sub