VBA nommer ligne

Sub test()
Dim codeclient As String
Dim i As Long
Dim nom As String
    codeclient = InputBox("Entrez le code du client :", "saisie")
    Worksheets("Salon").Cells(5, 2).Value = codeclient
    Worksheets("Fichier").Select
    Worksheets("Fichier").Range("A1:B1000").Select
    Selection.Find(What:=codeclient, After:=ActiveCell, LookIn:=xlFormulas, _
                   LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                   MatchCase:=False, SearchFormat:=False).Select
    i = ActiveCell.Row
    nom = Worksheets("Fichier").Cells(i, 2).Value
    Worksheets("salon").Cells(6, 2).Value = nom
    Worksheets("salon").Select
End Sub