Macro pour copier coller des onglets de différents fichiers

Bonjour,

totalement novice en VBA, j'essaye de créer une macro VBA qui, à partir d'une liste de noms (nom!1, nom2,...), me crée des onglets portant ces noms, et qui devrait copier les données d'un onglet d'un autre fichier (ayant le même nom que l'onglet créée) dans l'onglet nouvellement crée!

En récupérant des informations je suis arrivé à:

Sub creerFeuilles()
Dim curCell As Range
Set curCell = ThisWorkbook.Sheets("Menu").Range("A3")
nom_path = Range("B1")
While curCell.Value <> vbNullString
    ThisWorkbook.Sheets.Add After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = curCell.Value & " " & curCell.Offset(0, 1).Value
    ThisWorkbook.Sheets("Menu").Hyperlinks.Add Anchor:=curCell.Offset(0, 2), Address:="", SubAddress:= _
        "'" & ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name & "'!A1", TextToDisplay:="Go to"
    
    Workbooks.Open Filename:=nom_path & curCell.Value & ".xls"
    
    Workbooks(curCell.Value & ".xls").Worksheets("Profit  Loss").Cells.Copy _
    Workbooks("1. Conversion.xlsm").Worksheets(curCell.Value).Range("A1")
    Workbooks(nom_salon & ".xls").Close False

        Set curCell = curCell.Offset(1, 0)

Wend
ThisWorkbook.Sheets("Menu").Select
End Sub

Ce qui ne marche pas!
j'ai l'impression que la macro ouvre tous les fichiers sources, avant de faire les copier/coller, ce qui fait buger la macro!

Et j'arrive à la limite de mes compétences, je ne sais pas comment mettre cette macro à jour!

Toute aide serait grandement appréciée

un grand merci d'avance