Remove All code

Bonjour,

J'utilise ceci pour effacer tout le code vba d'un classeur :
(Je l'ai pioché là : http://www.garyradley.com/vba/tut11.htm)

Sub removeAllCode()
Dim awi 'activeWorkbookItem(index)
Dim awcl As Integer 'activeWorkbook Component CountOfLines
Dim count As Integer 'how many potential code modules
Dim i As Integer 'loop counter
On Error Resume Next
count = ActiveWorkbook.VBProject.VBComponents.count
For i = 1 To count
Set awi = ActiveWorkbook.VBProject.VBComponents.Item(i)
awcl = awi.CodeModule.CountOfLines
awi.CodeModule.DeleteLines 1, awcl
Next i
Set awi = Nothing ' Release the object
End Sub

Ca fonctionne plutôt pas mal, mais curieusement, lorsque je réouvre le classeur en question, il me demande toujours si je veux activer les macros..., alors qu'il n'y en a même plus la queue d'un dedans.... étrange, non ?

Merci de vos conseils.