Copier une page pour la coller dans un autre fichier.xlsm

Bonjour,

Je veux copier une page existante dans un fichier (1) pour la coller dans un autre fichier, mais en ne collant que les valeurs. J'ai déjà écrit un code VBA mais il me cree toujours un autre fichier où il colle la même page

voici mon code:

Sub Replace_Worksheet11()

Application.ScreenUpdating = False

Dim wsCurr As Worksheet

Workbooks("book1.xlsx").Sheets("sheet1").Copy

Workbooks("book2.xlsm").Sheets("sheet2").Select

Cells.Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("B10").Select

End Sub

Bonjour,

à tester,

Sub Replace_Worksheet1()
Dim plg As Range
With Workbooks("book1.xlsx").Sheets("sheet1")
  Set plg = .Range("A1:" & .Range("A1").SpecialCells(xlCellTypeLastCell).Address)
End With
Workbooks("book2.xlsm").Sheets("sheet2").Range("A1").Resize(plg.Rows.Count, plg.Columns.Count) = plg.Value
End Sub