Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Worksheets("Historique des dossiers")
Target.EntireRow.Copy
.Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
Sheets("Historique des dossiers").Activate
End Sub