Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim DerLig As Long
Sheets("facture").Range("a2:ak2").ClearContents
Cancel = True
If Not Intersect([B4:B450], Target) Is Nothing Then
DerLig = Sheets("facture").Cells(Rows.Count, "B").End(xlUp).Row + 1
Range(Target.Offset(0, 26).Address & ":" & Target.Address).Copy
Sheets("facture").PasteSpecial xlPasteValues
End If
Sheets("facture").Range("j4").Value = Sheets("facture").Range("j4").Value + 1
End Sub