ERROR with VBA prog - please Help

[useramine]

Private Sub CommandButton1_Click()
Dim Nom As String
Nom = [N7]
Range("A1:AR117").Select
Selection.Copy
Application.SheetsInNewWorkbook = 1
Set Wk = Workbooks.Add
Wk.Worksheets(1).Select
Worksheets(1).Range("A1").Select
Selection.PasteSpecial

'Wk.Worksheets(1).Paste
'Destination:=Range("A1:AR117")
Wk.Worksheets(1).Name = Nom
Wk.SaveAs "G:\temp\" & Nom
End Sub