Function sortirCode(target As Range)
Application.Volatile
code = Trim(Split(target, "-")(1))
With Sheets("Feuil2")
Set ici = .Range("J5:J8").Find(code, lookat:=xlWhole)
If Not ici Is Nothing Then
sortirCode = ici.Offset(0, 1)
End If
End With
End Function