Copier vers une autre feuille

Sub test()
Application.ScreenUpdating = False
    Worksheets(1).Cells.Copy
    With Sheets("Feuil2")
    .Activate
    .Range("A1").PasteSpecial Paste:=xlPasteValues
    .Application.CutCopyMode = False
    .Range("A1").Select
    End With
    Worksheets(1).Activate
    Application.ScreenUpdating = True
End Sub

Sub test2()
    Worksheets(1).Cells.Copy Worksheets(2).Cells(1, 1)
End Sub