Msg d'erreur "Erreur d'exécution '75' Objet spécifié introuvable

Bonjour,
hier on ma aidé a faire ce code, je l'ai exécuté sur une feuille tout été normal mais dés que je l'ai appliqué sur le reste des feuilles du classeur (j'ai fais du copié coller sur chaque feuille) il fonctionne un moment après un message d'erreur apparait "Erreur d'exécution '75' Objet spécifié introuvable".

voici le code:
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

la personne qui ma aidé se reconnaîtra.

Merci d'avance à tous