Recherchev jusqu'à la dernière ligne

bonjour,

j'aimerais savoir si il y a une défaillance sur ce code , il ne fonctionne pas 
merci   

sub recherche()

    Dim derniereLigne As Integer
    Dim i As Integer

    derniereLigne = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 5 To derniereLigne

        'recherche code postal centres
        If Sheets("Feuil2").Cells(i, 8) = "" Then
            Sheets("Feuil2").Cells(i, 8).Value = WorksheetFunction.VLookup(Sheets("Feuil2").Cells(i, 1).Value, Sheets("Feuil3").Range("A:J"), 8, False)

        End If

        If Sheets("Feuil2").Cells(i, 9) = "" Then
            Sheets("Feuil2").Cells(i, 11).Value = Left(Cells(i, 8), 2)

        End If

        'recherche nom des centres
        If Sheets("Feuil2").Cells(i, 9) = "" Then
            Sheets("Feuil2").Cells(i, 9).Value = WorksheetFunction.VLookup(Sheets("Feuil2").Cells(i, 11).Value, Sheets("Feuil4").Range("D:E"), 2, False)
        End If

        Sheets("Feuil2").Cells(i, 11).ClearContents
    Next i

End Sub

Bonjour à tous !

"Décidément, nous vivons une drôle d'époque"......

(@Cousinhub : Je ne me lasse pas de ce clin d’œil...)