Compilation de deux codes

Bonjour le forum

voici un code

Sub essai()
    For Each feuille In Worksheets
        Sheets("Feuil1").Copy
        Set w = ActiveWorkbook
        Windows("Original.xlsm").Activate
        feuille.Copy After:=w.Sheets(1)
        w.Activate

        fichier = Application.GetSaveAsFilename(feuille.Name, filefilter:="Fichier(*.xls),*.xls")
        ActiveWorkbook.SaveAs Filename:=fichier
        ActiveWindow.Close
     Next feuille
    MsgBox "Travail terminé"
End Sub

Il permet de transformer en autant de fichier que d'onglet contenues dans le classeur en les créant dans le dossier "Documment"

J'ai besoin de le transformer pour qu'il fasse la même chose, mais que lorsqu'il créé les fichiers il mette la feuille "x" dans chaque nouveau fichier et que je puisse choisir le dossier de destination des création

D'avance je vous remercie pour votre aide et pour le temps que vous m'accordez

Bonsoir le forum

Là je crois que j'avais bien fumé lorsque j'ai envoyé ce message

je ferme et je recommence toutes mes excuses