Workbook_BeforeSave

Bonjour , je tourne en rond et ne voit sur aucun forum de réponse .
Pourtant une fois je me rappelle que quelqu'un avait traité ce sujet sur ce forum mais je n'arrive pas à le retrouver.

Comment faire pour que cette macro ne s'applique qu'apres avoir éte enregistrée une fois ??????????


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

EffaceCodeThisWbk

End Sub

Sub EffaceCodeThisWbk()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").codemodule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub