Autres Transfert des données d'un classeur à un autre

For Each Wsh in  Workbooks(Me.[J7].Value & ".xlsx")

Next

Private Sub CommandButton1_Click()
Dim chemin$, n%, s As Object
chemin = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Workbooks.Open(chemin & Feuil1.[I7] & ".xlsx") 'ouvre le fichier
    For n = .Sheets.Count To 2 Step -1
        .Sheets(n).Delete
    Next n
    .Sheets(1).Name = Chr(1) 'nom provisoire
    For Each s In ThisWorkbook.Sheets
        s.Copy After:=.Sheets(.Sheets.Count) 'copie chaque feuille
        .Sheets(.Sheets.Count).DrawingObjects.Delete 'supprime les objets
    Next s
    .Sheets(1).Delete
    .Sheets(1).Select
    .Close True 'enregistre et ferme le fichier
End With
End Sub

Private Sub CommandButton1_Click()
    Dim WshCbl As Worksheet
    Dim Wbk As Workbook
    Dim WshTB As Worksheet
    
    Set Wbk = ThisWorkbook
    Set WshTB = Wbk.Worksheets(1)
    Set WshCbl = Workbooks(Me.[I7].Value & ".xlsx").Worksheets("feuil1")
    
    With WshCbl
         .[B3:B7].Value = WshCbl.[B3:B7].Value
         .[E6:E10].Value = WshCbl.[E6:E10].Value
         .[C13].Value = WshCbl.[C13].Value
         .[E15].Value = WshCbl.[E15].Value
    End With
    Set WshTB = Wbk.Worksheets(2)
    Set WshCbl = Workbooks(Me.[I7].Value & ".xlsx").Worksheets("feuil2")
    With WshCbl
         .[F15:F17].Value = WshTB.[E12:E14].Value
         .[G9].Value = WshTB.[G8].Value
    End With
End Sub