Private Sub AutoDestroy()
'boom !!! (autodestruction silencieuse à retardement)
'ajouter ici le code pour détruire le fichier !!!
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Date = #1/10/2020# Then AutoDestroy
'suite du code habituel de Workbook_Open
End Sub