Sub Autolyse()
'Chip Pearson & Bob Umlas, mpep
'à appeler dans l'événement BeforeClose du classeur à détruire
'peut aussi être appelé par une procédure avec OnTime pour une
'destruction à une date/heure précise
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