Ref_Cherchee = Sheets("Locataires").Cells(NUMERO_LIGNE_LOC, 18)
Nr_Bail = Ref_Cherchee
Set trouve_Nr_Ligne = Sheets("Indexations").Range("B1:B500").Find(Nr_Bail, LookIn:=xlValues)
Lign_Bail = trouve_Nr_Ligne.Row
Lign_Loyer = Lign_Bail + 2
Der_Col_Loyer = Sheets("Indexations").Cells(Lign_Loyer, Cells.Columns.Count).End(xlToLeft).Column
MsgBox Lign_Loyer & " " & Der_Col_Loyer
Loyer_Impaye = Sheets("Indexations").Cells(Lign_Loyer, Der_Col_Loyer).Value
MsgBox Loyer_Impayé