Debug sur valeur recherchée dans une ligne, mais pourquoi ?

Bonjour,

Je me permet de vous soliciter une fois de plus car je n'arrive pas à trouver de solution dans ma macro.

j'ai un tableau qui permet de récupérer le nom de toutes les feuilles en mettant un lien cliquable vers chacune,

Ensuite je récupère des données dans ces pages pour remplir le tableau, tout marche sauf la ligne suivante

Range("S" & LastR).Value = Sheets(i).Columns("F").Find("FAUX", Range("F" & Cells.Rows.Count), xlValues).Row

et je ne comprend pas pourquoi, cette ligne devrait me permettre de chercher dans la colonne de la feuille cible la valeur associé du premier "faux" rencontré.

Je ne serais pas contre un peu d'aide.


voici le code

Sub tessst()

With Sheets("DASHBOARD").ListObjects("Devoirs") 'je vide le tableau devoirs
    If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
End With

Sheets("DASHBOARD").Select 'je selectionne la feuille dashboard

Dim LastR As Long
Dim subAss As String
Dim valCell As String
Dim CyViA As String

For i = 4 To Sheets.Count


subAdd = Sheets(i).Name & "!N2"
valCell = Sheets(i).Range("N2").Value
LastR = Derniere_Ligne(ActiveSheet) + 1
    ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & LastR), Address:="", SubAddress:=subAdd, TextToDisplay:=valCell 'nom de page + lien
    
Range("B" & LastR).Value = Sheets(i).Range("AH2").Value 'type
Range("S" & LastR).Value = Sheets(i).Columns("F").Find("FAUX", Range("F" & Cells.Rows.Count), xlValues).Row
Range("T" & LastR).Value = "1"
  Next 'Feuille Suivante

End Sub

Function Derniere_Ligne(Sh As Worksheet) As Long
Derniere_Ligne = Sh.Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
End Function

Merci d'avance