Vba: erreur d'exécution 91: variable objet ou

Bonjour à vous,

ca fait quelques heures que je butte sur une macro en vba qui me sort un "erreur d'exécution 91: variable objet ou variable bloc non défini" en fin de boucle, au lieu d'en sortir.

L'objectif de la macro est d'aller récupérer des valeurs dans un fichier concaténé afin de les consolider dans un tableau.
dans chaque ligne commençant par "&&&DDD" (ex cidessous), je récupére les cinq derniers numéros, et les colle dans un autre tableau.

&&&DDD 999888 FRT00000145

Tout se passe bien, la macro récupère bien toutes mes valeurs.
Mais à la fin, au lieu de sortir de la boucle, le message "erreur d'exécution 91: variable objet ou variable bloc non défini"

Est ce que quelqu'un peut m'aider

Merci d'avance

Mon code:

Sub (copiercoller)

Dim l As Integer 'numéro de ligne comprenant la valeur à copier/coller dans tableau consolidé
Dim j As Integer 'numéro de ligne de tableau consolidé dans laquelle coller la valeur
Dim i As Integer
Dim codepr As String
Dim entetempr As String

Workbooks.Open Filename:="C:\Documents and Settings\p051398\Desktop\macro2\Consolidation PLR.xls"
Workbooks.Open Filename:="C:\Documents and Settings\p051398\Desktop\DMS\PLR\Vie Serie\MPR.DLR.xls"
Range("A1").Select
Selection.EntireRow.Insert

l = 1
j = 2
celluletrouvee = "xxx"

Do While celluletrouvee <> " "
Windows("MPR.DLR.xls").Activate
Set celluletrouvee = Range(Cells(l, 1), Cells(65500, 1)).Find("&&&DD", lookat:=xlPart)
If celluletrouvee Is Nothing Then
End If
l = celluletrouvee.Row

'je selectionne mon code PR
entetempr = ActiveSheet.Cells(l, 1).Value
codepr = Mid(entetempr, 58, 5)
Selection.Copy
Windows("Consolidation PLR.xls").Activate
Cells(j, 1).Value = codepr

j = j + 1
l = l + 1

Loop

End Sub