Suppression Macros

Bonjour,
j'ai un fichier .xlsm que j'aimerais reconvertir en fichier .xls
Pour cela, j'enregistre au format .xls et j'enlève tout le VBA grâce au code suivant :

Dim VbComp As Object
ThisWorkbook.SaveAs "D:\dossier\general\excel\test.xls"
For Each VbComp In ActiveWorkbook.VBProject.VBComponents ' 'suppression vba
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

La suppression des macros se fait bien mais lorsque je tente de réouvrir le fichier, les macros sont à nouveau présentes.
De plus, je n'arrive pas à lire correctement le fichier à cause d'un problème d'extension.

Merci d'avance de votre aide