Sub Voyonsca()
'Nécéssite d'activer la référence
'"Microsoft Visual basic For Application Extensibility 5.3"
Dim X As Integer
Wb = ActiveWorkbook.Name
Workbooks.Add
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub Workbook_BeforeClose(Cancel As Boolean)"
.InsertLines X + 2, "Dim Wb as Workbook"
.InsertLines X + 3, "Set Wb = Workbooks(" & Wb & ")"
.InsertLines X + 4, "Wb.Close False"
.InsertLines X + 5, "Kill Wb"
.InsertLines X + 6, "Activeworkbook.Close False"
.InsertLines X + 7, "End Sub"
End With
End Sub