Вы должны указать, что vlookup должен возвращать только точные совпадения. Т.е. вам нужно изменить формулу на
IDNiv = Worksheetfunction.Vlookup(Me.ComboNiv.Value, Feuil13.Range("B:C"), 2, FALSE)
. По умолчанию Vlookup настроен на возврат только приблизительных совпадений, которые работают только с отсортированной таблицей.