macro - Croix

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Intersect(Target, Range("j2:M1000")) Is Nothing Then
        If Ucase(Target) = "X" Then
            Target = ""
        Else
            Target = "X"
        End If
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("j2:M1000")) Is Nothing And Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then
        Select Case UCase(Target)
        Case "X"
            Set MaDestination = Sheets("cota").Range("A65536").End(xlUp).Offset(1, 0)
            MaDestination.Value = Cells(1, Target.Column)
            MaDestination.Offset(0, 1).Value = Cells(Target.Row, 2)
            MaDestination.Offset(0, 2).Value = Cells(Target.Row, 4)
            MaDestination.Offset(0, 3).Value = Cells(Target.Row, 8)
            MaDestination.Offset(0, 4).Value = Cells(Target.Row, 5)
        Case ""
            For Each X In Sheets("cota").Range("A2:" & Sheets("cota").Range("A65536").End(xlUp).Address)
                If X & X.Offset(0, 1) & X.Offset(0, 2) & X.Offset(0, 3) & X.Offset(0, 4) = Cells(1, Target.Column) & Cells(Target.Row, 2) & Cells(Target.Row, 4) & Cells(Target.Row, 5) & Cells(Target.Row, 8) Then
                    X.EntireRow.Delete
                    Exit Sub
                End If
            Next
        End Select
    End If
End Sub