Dblclic sur cellule userform s'ouvre

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("A1:A4")) Is Nothing Then
        Cancel = True
        With Worksheets("feuil2")        'mettre le nom de la feuille
            'recherche
            Nb = Application.CountIf(.Range("I1:I4"), Target)
            If Nb > 0 Then
                lig = 1
                lig = .Columns("I").Find(Target, .Cells(lig, "I"), , xlWhole).Row
                UserForm1.Label1.Caption = .Cells(lig, "J")
                UserForm1.Show
            Else
                MsgBox "Desole, n'exite pas dans table !!!!!"
            End If
        End With
    End If
End Sub