Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Plage As Range
On Error Resume Next
Set Plage = Application.InputBox("Selectionner la plage :", "Transfert", , , , , , 8)
If Plage Is Nothing Then Exit Sub
Dim Lg%
Lg = Workbooks("Toto.xls").Sheets(1).Range("a65000").End(xlUp).Row
If Lg < 4 Then Lg = 4
Plage.Copy
Workbooks("Toto.xls").Sheets(1).Range("a" & Lg).PasteSpecial Paste:=xlPasteValues
End Sub