Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("zcoche2"), Target) Is Nothing Then Exit Sub
Cancel = True
NumLigne = Target.Row
ValsLigne = Target.EntireRow.Resize(, 3).Value
If IsEmpty(Target) Then
Target = "x"
Else
Target.EntireRow.Delete
End If
Application.OnUndo "Double clic", "Rétablir"
End Sub