Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Or Target.Column <> 8 Or Target = "" Then Exit Sub
Dim i As Variant
Cancel = True
With Sheets("Scan")
i = Application.Match(Target, .[H:H], 0)
If IsError(i) Then i = .Range("H" & .Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy .Rows(i)
MsgBox "Transfert sur ligne " & i 'facultatif
Application.Goto .Cells(i, 1), True 'facultatif
End With
End Sub