You can only accomplished that by using VBA

Goto ToolsMacroVisual Basic Editor.
In the project explorer, double click SHEET1

then paste this code to the coding area.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Worksheets("Sheet2").Cells(Target.Row, Target.Column).Value =
Target
End Sub