Alimentation combobox2 en fonction de la valeur de la combobox1

Private Sub OptEquipement_Click()
   Set f = Sheets("feuil1")
   Set MonDico = CreateObject("Scripting.Dictionary")
   For Each c In Range(f.[A2], f.[A65000].End(xlUp)): MonDico.Item(c.Value) = c.Value:  Next c
   temp = MonDico.items
   Call Tri(temp, LBound(temp), UBound(temp))
   Me.ComboBox1.List = temp
End Sub

Private Sub ComboBox1_Change()
 Set f = Sheets("feuil1")
 Me.ComboBox2.Clear
 For Each c In Range(f.[A2], f.[A65000].End(xlUp))
  If c = Me.ComboBox1 Then Me.ComboBox2.AddItem c.Offset(, 1)
 Next c
End Sub

Sub Tri(a, gauc, droi) ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
     Do While a(g) < ref: g = g + 1: Loop
     Do While ref < a(d): d = d - 1: Loop
     If g <= d Then
        temp = a(g): a(g) = a(d): a(d) = temp
        g = g + 1: d = d - 1
     End If
   Loop While g <= d
   If g < droi Then Call Tri(a, g, droi)
   If gauc < d Then Call Tri(a, gauc, d)
End Sub

   'Tri le contenu de la ComboBox1 par ordre alphabétique
    With ComboBox1
        For i = 0 To .ListCount - 1
            For j = 0 To .ListCount - 1
                If .List(i) < .List(j) Then
                    strTemp = .List(i)
                    .List(i) = .List(j)
                    .List(j) = strTemp
                End If
            Next j
        Next i
    End With