Nommer un fichier depuis macro contenue dans un autre classeur

Bonjour,

Je viens de faire une macro pour exporter un onglet de mon fichier "A.xlsm" vers un nouveau classeur.

Code:
Sub BoutonExporter()

ActiveSheet.Copy

End Sub

Jusque là tout va bien. Sauf que je souhaiterais que ce nouveau classeur soit enregistré (au même endroit que mon fichier A) sous le nom "Blablabla Ano 1", sachant que Blablabla est contenu dans ma cellule B5 et que Ano 1 est le nom de mon onglet.

J'ai essayé avec ActiveWorkBook.Name mais il ne veut pas spécifiant que je ne peux ps utiliser cette fonction sur un fichier en lecture seule.

Ah oui, j'aimerais que le fichier soir enregistré avec une extension xlsm et non xls...

J'aimerais qu'il soit ensuite refermé automatiquement.

Débutant en VBA et n'ayant pas de bouquin, je sèche ....

Merci de votre aide.