afficher les données de la feuille dans USF via ComboBox

Dim m As Object, t(), c As Range
Private Sub UserForm_Initialize()
 ComboBox1.List = Array("LC", "C", "CTR", "M")
End Sub
Private Sub ComboBox2_DropButtonClick()
 If ComboBox1 = "" Then Exit Sub
 With Sheets(ComboBox1.Text)
 Set m = CreateObject("Scripting.Dictionary")
 For Each c In .Range("b4:b" & .[B65000].End(3).Row)
 m(c.Value) = ""
 Next c
 ComboBox2.List = m.keys
 End With
End Sub

Private Sub ComboBox2_Change()
Dim Lgn&
  Lgn = ComboBox2.ListIndex + 4


With Sheets(CStr(ComboBox1))
  TextBox105 = .Cells(Lgn, 4)
  TextBox107 = .Cells(Lgn, 3)
  TextBox109 = .Cells(Lgn, 11)
  TextBox114 = .Cells(Lgn, 5)
 
End With

End Sub