Erreur '438 : FindNext

Bonjour, 

je ne comprends pas je n'arrive pas à utiliser Findnext (erreur '438) alors que je l'ai utilisé dans une autre macro et il fonctionnait.

Voici une partie de mon code simplifié :

Dim rang_rech0 As Range,val_rech0 As Variant, cell As String
Dim rang_trouve As Range

Dim wk As Workbook

Set wk = Workbooks("Nomenclature.xlsm")
Set rang_rech0 = wk.Worksheets("STANDARD").Range("A2:A284")
 

val_rech0 = Feuil4.Cells(1, 1)
        
        Set rang_trouve = rang_rech0.Find(what:=val_rech0, LookIn:=xlValues, lookat:=xlPart)
        If rang_trouve Is Nothing Then
        MsgBox ("Pied non créé!")
        Else:
       
            cell = rang_trouve.Address
            

             Do
                  Set rang_trouve = wk.rang_rech0.FindNext(rang_trouve) <-----erreur 438
            
                
                    If Not rang_trouve Is Nothing Then
                       'code
                    End If
                
             Loop While rang_trouve.Address <> cell
            
            
            
                
           
        End If

End Sub
 

      merciiii