double clic dans deux zones différentes = deux actions différentes

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B6:G2000")) Is Nothing Then userform1.Show 0
If Not Intersect(Target, Range("H6:K2000")) Is Nothing Then userform2.Show 0
...

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 6 Or 2000 < Target.Row Or _
    Target.Column < 2 Or Target.Column > 11 Then Exit Sub
Cancel = True
If Target.Column < 8 Then
    USF1.Show
Else
    USF2.Show
End If
End Sub