ourir une userform suivant condition

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim a As Range, b As Range, c As Range
Set a = [D11,D14,D17,D20,D23,D26,D29,D32,D35]
Set b = [G11,G14,G17,G20,G23,G26,G29,G32,G35]
Set c = [J11,J14,J17,J20,J23,J26,J29,J32,J35]
If Not Application.Intersect(Target, Union(a, b, c)) Is Nothing Then 'si la cellule selectionne est en dehors,sort de la procedure
UserForm1.Show
Cancel = True
End If
If Not Application.Intersect(Target, _
Union([D12,D13,D15,D16,D18,D19,D21,D22,D24,D25,D27,D28,D30,D31,D33,D34,D36,D37], _
[G12,G13,G15,G16,G18,G19,G21,G22,G24,G25,G27,G28,G30,G31,G33,G34,G36,G37], _
[J12,J13,J15,J16,J18,J19,J21,J22,J24,J25,J27,J28,J30,J31,J33,J34,J36,J37])) Is Nothing Then 'si la cellule selectionne est en dehors, sort de la procedure
UserForm2.Show
Cancel = True
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lignes, sengil
If Target.Column = 4 Or Target.Column = 7 Or Target.Column = 10 Then
lignes = Array(12, 13, 15, 16, 18, 19, 21, 24, 25, 27, 28, 30, 31, 33, 34, 36, 37)
sengil = Array(11, 14, 17, 20, 23, 29, 32, 35)
If Not IsError(Application.Match(Target.Row, lignes, 0)) Then
UserForm1.Show
End If
If Not IsError(Application.Match(Target.Row, sengil, 0)) Then
UserForm2.Show
End If
End If
End Sub