Création d'un fichier de deux onglets

Bonjour le forum !

Voici mon petit souci, je souhaite créer un fichier Excel de deux onglets qui se trouvent dans un classeur beaucoup plus grand. Le problème c'est que les deux feuilles qui doivent se mettre ensemble pour la création du fichier ne porte pas le même nom (forcement).

De plus j'ai ce code qui me permet de créer un nouveau dossier mais pour une seule feuille, peut-on l'améliorer ?

    For i = 1 To ThisWorkbook.Sheets.Count
        Set NewWkbk = Workbooks.Add
        ThisWorkbook.Sheets(i).Copy Before:=NewWkbk.Sheets(1)
        NewWkbk.SaveAs myPath & "/" & ThisWorkbook.Sheets(i).Name
        NewWkbk.Close
    Next i

Désolé je ne peux mettre de fichiers joints.

Merci