Enregistrer deux onglets en simultanés

Bonjour à vous,

Dans le cadre de mon module, j'ai besoin d'exporter deux onglets en simultanés, avec des noms différents.

Pour le premier, j'ai réussi a l'enregistrer la ou je souhaites, au format souhaités, avec le nom souhaités (date-heure...)

J'aimerai faire la même chose pour le deuxième onglet.

En gros enregistrer la Feuil9 (comme a l'heure actuelle), et la Feuil11 avec des conditions similaires à la Feuil9 mais un nom différents.

Voici mon code actuel

Dim Chemin As String, NomFichier As String
 Dim extension As String

  Application.ScreenUpdating = False

      Chemin = "S:\COMMANDE\HISTORIQUE\"
   extension = ".csv"
   On Error Resume Next
    MkDir Chemin
     On Error GoTo 0
      NomFichier = "PRXVTE_" & Feuil3.Cells(10, 3).Text & extension
      Feuil9.Copy

    With ActiveWorkbook
    .SaveAs Filename:=Chemin & NomFichier, FileFormat:=xlCSV, CreateBackup:=False
    .Close
    End With

    MsgBox "Le fichier a bien été créé et enregistré dans le dossier COMMANDE", vbInformation

Merci d'avance pour votre support

UPDATE :

J'ai réussi à le faire en créant une deuxième macro, et en faisant un "Call" de cette macro.

Je ne sais pas si c'est la meilleure solution mais ça à l'air de fonctionner.