Pb avec la fonction FIND

Bonsoir à tous.

Voici mon pb du soir.
Par la méthode ci dessous j'essais de récréer une liste2 à partir d'une liste1
afin de supprimer les doublons. Vous allez peut être me dire que cette méthode est nulle, mais en attendant je ne vois pas ce qui cloche et pourquoi je plante avec comme message d'erreur, objet non défini bloc with etc...

Merci pour votre aide

Private Sub Constitution()
Dim LastCel1 As Range, Cel1 As Range, Lastcel2 as range,CelNNO2 As Range

For Each i In PlageSearch1
Set Cel1 = PlageSearch1.Find(what:=i.Value, LookAt:=xlWhole, MatchCase:=False)

Set Cel2 = PlageSearch2.Find(what:=Cel1.Value, LookAt:=xlWhole, MatchCase:=False)

If CelNNO.Value <> CelNNO2.Value Then 'je plante ici

set LastCel2=PlageSearch2.End(xlDown).Offset(1, 0)
LastCel2.Value = UCase(Cel1.Value)
End If
Next
End Sub

Je tiens à préciser que je ne peux pas supprimer les doublons dans ma première liste. C'est important.

Bye

Pierrot