Erreur methode find

Bonjour,

je demande a mon programme de rechercher une valeur dans une colonne d'une feuille, ou bien sur elle se trouve, mais il me retourne "nothing" disant qu'il ne la trouve pas.... d'ou es-ce que cela peut venir?

la valeur en gras retourne nothing alors qu'elle existe bien dans la plage donnée?

Sub Finaliser_Setlist()

Dim Lig_Lecture_Final As Long
Dim Col_Lecture_Final As Long
Dim Lig_Ecriture_Final As Long
Dim Col_Ecriture_Final As Long
Dim Lig_Infos_Final As Long
Dim Col_Infos_Final As Long
Dim Lig_Album_Final As Long
Dim Col_Album_Final As Long
Dim Titre_Select_Final As String
Dim Titre_Complet_Find_Final As Object
Dim Titre_Complet_Final As String
Dim Titre_Find_Final As Object
Dim Infos_Find_Final As Object
Dim Numero_Titre_Final As String
Dim k As Long
Dim l As Long
Dim m As Long

Dim n As Long
Dim o As Long
Dim p As Long
Dim q As Long
Dim r As Long
Dim s As Long
Dim t As Long
Dim u As Long
Dim v As Long
Dim w As Long

Lig_Lecture_Final = 6
Col_Lecture_Final = 1
Lig_Ecriture_Final = 6
Col_Ecriture_Final = 1
Nb_Chansons = Sheets("SETLIST").Cells(2, 16)
l = 33
m = 6

n = 3
o = 3
p = 3
q = 3
r = 3
s = 3
t = 3
u = 3
v = 3
w = 3

If Sheets("SETLIST").Cells(4, 9) = "1" Then

    For k = 0 To Nb_Chansons + 2
        Numero_Titre_Final = Sheets("SETLIST").Cells(Lig_Lecture_Final, Col_Lecture_Final)
        If Numero_Titre_Final <> "" Then
            
                Titre_Select_Final = Sheets("SETLIST").Cells(Lig_Lecture_Final, Col_Lecture_Final + 4)
                Set Infos_Find_Final = Sheets("CLASSEMENT INFOS").Columns(1).Find(Titre_Select_Final)
                
               If Infos_Find_Final Is Nothing Then
                    MsgBox "Non  Trouvé"
                Else
                    Lig_Infos_Final = Infos_Find_Final.Row
                    Set Titre_Find_Final = Sheets("TOTAL PAR ALBUM").Range("B4:K31").Find(Titre_Select_Final)
                    Lig_Album_Final = Titre_Find_Final.Row
                    Col_Album_Final = Titre_Find_Final.Column
                    Set Titre_Complet_Find_Final = Sheets("TITRES").Range("B1:B150").Find(Titre_Select_Final)
                    Titre_Complet_Final = Sheets("TITRES").Cells(Titre_Complet_Find_Final.Row, 3)
                    
                    Lig_Ecriture_Final = Lig_Ecriture_Final + 1
                End If
            
        Else
            Lig_Ecriture_Final = Lig_Ecriture_Final + 1
        End If
        Lig_Lecture_Final = Lig_Lecture_Final + 1
        Next
Else
    MsgBox "Votre Setlist n'a pas été triée"
End If

End Sub