Tant que le fichier est ouvert, on ne peut pas le supprimer. La macro doit donc se trouver dans un complément ou dans le normal.dotm :
Sub Supprime()
'macro écrite par Pierre CFI
Dim LeF As String
LeF = ActiveDocument.FullName
If MsgBox("Supprimer " & LeF & " ?", vbYesNo) = vbYes Then
ActiveDocument.Close False
Kill LeF
MsgBox LeF & " a été supprimé"
End If
End Sub