Dim MonRepertoire, fa, fe, x As Integer, Dico, Tablo
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dico = CreateObject("Scripting.Dictionary")
chem = "C:\mondossier\"
MonRepertoire = chem & UserForm1.siglecombobox.Text
x = 1
For Each fa In fso.GetFolder(MonRepertoire).Files
lsigle = Len(UserForm1.siglecombobox.Text)
fe = fa.Name
fe = Mid(fe, lsigle + 2, 3)
Dico(fe) = fe
x = x + 1
Next fa
Tablo = Dico.keys
Set Dico = Nothing
Set fso = Nothing
For x = LBound(Tablo) To UBound(Tablo)
UserForm1.devisecombobox.AddItem Tablo(x)
Next x