Copier des feuilles dans un nouveau fichier avec une macro

Bonjour à toutes et à tous,

voila le code qui me permet de copier une feuille dans un nouveau fichier.

Sheets(Worksheets("Menu").Range("k1").Value).Cells.copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
ActiveSheet.Name = ActiveSheet.Range("g2").Value

J'ai plusieur feuille dans un fichier.
Ce code me permets de copier une feuille dans un nouveau fichier selon un choix.

Je souhaiterai maintenant copier une deuxième feuille du meme fichier en meme temps que la première.
Le nom de la feuille est BQ.

Comment faire ?

Merci pour votre précieuse aide

Le Suisse