hello,
j'ai trouvé mon bonheur avec:
Sub auto_close()
Dim VBC As Object, Wbk As Workbook
Set Wbk = ActiveWorkbook
With Wbk.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
End Sub
cordialement