Private Sub Worksheet_beforedoubleclick(ByVal Target As Range, Cancel As Boolean)
'Feuil2 CodeName de la feuille de destination
If Target.Column = 10 And Target.Row > 1 Then
Dim lig As Variant
Cancel = True
If Target = "" Then
Target = "P"
Cells(Target.Row, "AA").Resize(, 19).Copy Feuil2.[B65536].End(xlUp)(2)
Else
Target = ""
lig = Application.Match(Cells(Target.Row, "AA"), Feuil2.[B:B], 0)
If IsNumeric(lig) Then Feuil2.Rows(lig).Delete
End If
End If
End Sub