Copier et coller avec mise en forme

Bonjour

je souhaite votre appui pour améliorer mon code, je souhaite copier et coller avec mise en forme depuis un classeur dans fichier excel 1 vers un classeur dans fichier excel 2

J ai déjà cette fonction qui marche, mais dans le même classeur , j ai besoin d améliorer mon code pour copier et coller avec mise en forme depuis un classeur dans fichier excel 1 vers un classeur dans fichier excel 2

Dim WS1 As Worksheet

For Each WS1 In Worksheets

With WS1

.Range("C3:C12").Copy

.Range("F3:F12").PasteSpecial Paste:=xlPasteAll

End With

Next

Application.CutCopyMode = False

Bonjour,

'J ai déjà cette fonction qui marche, mais dans le même classeur ,

'j ai besoin d améliorer mon code pour copier et coller avec mise en forme

'depuis un classeur dans fichier excel 1 vers un classeur dans fichier excel 2

à tester,

Sub test()
Dim wk1 As Workbook, wk2 As Workbook
Dim WS1 As Worksheet

Set wk1 = ThisWorkbook
Set wk2 = Workbooks("l'autre_fichier")        'à adapter

For Each WS1 In wk1.Worksheets
    With WS1
    .Range("C3:C12").Copy wk2.Sheets(WS1.Name).Range("F3:F12")
    End With
Next
End Sub