boucle Find dans boucle Find

Bonjour à tous,

j'imagine que mon sujet n'est pas très clair, je vais essayer de vous expliquer mon problème!


J'utilise une boucle de recherche avec Find dans laquelle je fais un autre find mais sans boucler et il me fait une erreur à l'exécution.

Voici mon code simplifié :

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
--------------------------------------------------------
With Worksheets(2).Range("b1:b500")
Set d = .Find(3, lookin:=xlValues)
If Not d Is Nothing Then

Ligne_Trouvée = d.Row
Worksheets(1).Range("C2").value=Worksheets (2).Range("C"+Ligne_Trouvée).value
end if
end with
--------------------------------------------------------
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With


Le problème est que si je met la partie comprise entres les 2 lignes, il me met l'erreur suivante :

Variable objet ou Variable de bloc with non défini concernant la ligne "Loop while Not c Is..." alors que lorsque je suis le code au début de la première boucle, il n'a aucun problème avec la variable c

Si quelqu'un avait une idée, ca m'arrangerait bien parceque là je bloque sec! Merci par avance.

Clark