Option Explicit
Sub test()
Dim wb As Workbook, f As String
Workbooks("classeur3.xls").Sheets("Feuil1").Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Path & "\macopie"
f = .FullName
.Close
Name f As Replace(f, ".xls", ".dif")
End With
End Sub