Sub copy_paste()
Dim value As Double
Application.ScreenUpdating = False
Application.Workbooks.Open "c:\fichier1.xls"
value = Worksheets("Feuil1").Range("G3").value
ActiveWorkbook.Close
Worksheets("Feuil1").Activate
Range("G3") = value
End Sub