Sub Macro1()
Dim RepGOFn, ClasSrc As Workbook
ChDrive "C": ChDir "C:\SesDocuments"
RepGOFn = Application.GetOpenFilename("Fichier xls,*.xls;*.xlsx")
If VarType(RepGOFn) <> vbString Then Exit Sub
Set ClasSrc = Workbooks.Open(RepGOFn)
Feuil2.Cells.ClearContents
ClasSrc.Worksheets(1).UsedRange.Copy
Feuil2.[A1].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ClasSrc.Close SaveChanges:=False
Feuil3.Activate
End Sub