Sub Test_OK()
Dim fichier As Variant, wbk As Workbook
fichier = _
Application.GetOpenFilename("Fichiers EXCEL ,*.xls?", , "Choisir un fichier, svp", False)
If fichier <> False Then
Set wbk = Workbooks.Open(fichier)
End If
wbk.Worksheets(1).Range("A1:C10").Copy ThisWorkbook.Worksheets(1).[A1]
Application.CutCopyMode = False
wbk.Close False
End Sub