Enregistrer sous

Bonjour,

Mon code pour enregistrer un fichier, il ferme le fichier actuel, enleve mes codes et ouvre le fichier enregistre. Comment est-ce que je pourrais faire pour qu'il ne `touche`pas à mon fichier où j'ai mes macros?

Sub SaveAsF()
    ChDir _
        "G:\
    ActiveWorkbook.SaveAs Filename:= _
        "G:\Compliance _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

EDIT: Ajout de la coloration syntaxique.