ajouter macro par macro

Bon, pour creer une macro a partir d'une autre,c'est:

ActiveWorkbook.VBProject.VBComponents.Add vbext_ct_StdModule

mais ce que je voudrais faire c'est ajouter a cette macro par exemple:
Sub save()
ActiveWorkbooks.save
End Sub

Comment faire ?