Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target.CurrentRegion
If .Count = 1 Then Exit Sub
Cancel = True
If .Cells(1).Borders(xlEdgeTop).Weight = xlMedium Then .Borders.LineStyle = xlNone: Exit Sub 'RAZ
.Borders.Weight = xlThin
.BorderAround Weight:=xlMedium 'contour
End With
End Sub