Renseigner une ListBox

Private Sub ComboBox2_Change()
  Set MonDico = CreateObject("Scripting.Dictionary")
 For i = 1 To Range("Nom").Count
    If Range("Poste")(i) = ComboBox2.Text And Range("Type")(i) = ComboBox1 Then
      temp = Range("Nom")(i) & " " & Range("Prenom")(i)
      If Not MonDico.Exists(temp) Then MonDico.Add temp, temp
    End If
  Next i
    With Me.ListBox1
        .Clear
        .List = MonDico.Items
        .ListIndex = -1
    End With
End Sub

Dim c As Range, m As Object
Private Sub UserForm_Initialize()
 Set m = CreateObject("Scripting.Dictionary")
 For Each c In Range("e3", Cells(Rows.Count, "e").End(xlUp))
 m(c.Value) = m(c.Value) + 1
 Next c
 ComboBox1.List = m.keys
 End Sub
Private Sub ComboBox1_Change()
ComboBox2.Clear: ListBox1.Clear
Set m = CreateObject("Scripting.Dictionary")
 For Each c In Range("e3", Cells(Rows.Count, "e").End(xlUp))
 If c = ComboBox1 Then m(c.Offset(, 1).Value) = m(c.Offset(, 1).Value) + 1
 Next c
 ComboBox2.List = m.keys
End Sub
Private Sub ComboBox2_Change()
Set m = CreateObject("Scripting.Dictionary")
 For Each c In Range("f3", Cells(Rows.Count, "f").End(xlUp))
 If c.Value = ComboBox2.Text And c.Offset(, -1).Value = ComboBox1.Text Then m(c.Offset(, -3).Text _
 & " " & c.Offset(, -2).Text) = m(c.Offset(, -3).Text & " " & c.Offset(, -2).Text) + 1
 Next c
 ListBox1.List = m.keys
End Sub