Application une macro sur un dossier et créer fichier excel

Bonjour à tous!!

J'ai une macro qui fonctionne très bien et qui me permet de fusionner des fichiers dans la feuil 2 de mon fichier "recap".
Cependant, j'aimerais améliorer cette macro en ayant la possibilité de copier les données non pas sur la feuil 2 de mon fichier recap mais dans un nouveau fichier excel créer dans mon dossier.
De plus, actuellement, pour que cette macro fonctionne il faut que la macro recap soit dans le dossier en question et c'est pourquoi j'aimerais avoir la possibilité de choisir le dossier sur lequel la macro doit fonctionner.
Pour récapituler, les 2 tâches que je souhaite effectuer sont:
Créer un nouveau fichier excel pour copier mes données;
Avoir la possibilité de choisir le dossier sur lequel je souhaite faire fonctionner la macro.

Merci pour votre aide !!!

Je vous joins la macro que j'ai actuellement:

Sub Compilation()
Dim Temp As String
Dim Ligne As Long
Dim i As Integer
Dim n As Integer
Temp = Dir(ActiveWorkbook.Path & "\*.xlsx")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "Recap.xlsm" Then
i = i + 1
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
If i = 1 Then
Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy
Else
Workbooks(Temp).Sheets(1).UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count).Copy
End If
Workbooks("Recap.xlsm").Sheets(2).Activate
n = n + 1
If n = 1 Then
Range("A1").Select
ActiveSheet.Paste
Else
Ligne = Sheets(2).Range("A100000").End(xlUp).Row + 1
Range("A" & CStr(Ligne)).Select
ActiveSheet.Paste
End If
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub