Public CbxDes As String
Sub ChargCbx()
Dim NbreCar As Integer
Dim myFso As Object, StoCsv As Object, csvLine As String
On Error Resume Next
Set myFso = CreateObject("Scripting.FileSystemObject")
NbreCar = Len(CbxDes) ' CbxDes --> lettre saisie dans le Combobox
USF1.ComboBox1.Clear
Set StoCsv = myFso.OpenTextFile("C:\LIBRAIRIE\STOCK.csv", 1)
While Not StoCsv.AtEndOfStream
csvLine = StoCsv.ReadLine
If Left(Split(csvLine, ";")(1), NbreCar) = CbxDes Then USF1.ComboBox1.AddItem Split(csvLine, ";")(1)
Wend
StoCsv.Close
Set StoCsv = Nothing: Set myFso = Nothing
End Sub