Supprimer macros et enregistrer

[Sébbb]

Bonjour à tous,

Après quelques questions sur le forum, et la visite des archives, j'ai ressorti ce code :

Sub supprimeToutVBA()
Dim vbComp As Object

'1 : Pour enregistrer le classeur
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:='Classeur Microsoft Excel(*.xls), *.xls')
If fileSaveName <> False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName
End If

'2 : Pour supprimer le code
For Each vbComp In ActiveWorkbook.VBProject.VBComponents
Select Case vbComp.Type
Case 1 To 3
ActiveWorkbook.VBProject.VBComponents.Remove vbComp
Case Else
With vbComp.codeModule
.deleteLines 1, .countOfLines
End With
End Select
Next vbComp
ActiveWorkbook.Save
End Sub

Mais ca marche pas super, j'ai plusieurs fois la fenêtre Enregistrer sous, le fichier ne s'enregistre pas...
Pourtant 1 permet bien qd je le lance sans 2 d' enregistrer le fichier.
Et 2 permet de supprimer le code.

En fait, ce que je voudrais, et ce qui est très très important pour moi, c'est tout d'abord de supprimer le code (ou ne conserver qu'une partie : l'enregistrement) et ensuite enregistrer le doc comme le fait 1 (le document contenant les macros est en lecture seule, je voudrais en faire une copie là ou l'utilisateur le souhaite et ne plus avoir de code pour cet enregistremment.

SVP!!!
Aidez-moi, c'est super important!!!
Merci à vous tous,
A bientôt
Sébbb