alimenter Combobox+tri avec critères

Private Sub UserForm_initialize()
'je souhaite alimenter la combobox avec les items de la colonne C
'uniquement si les éléments correspondants dans la colonne A commencent
'par "401". La liste C doit être triée.
Dim c As Range
Dim drligne As Long
drligne = Range("a65000").End(xlUp).Row
For Each c In Range("a8:a" & drligne)
If Left(c.Text, 3) = "401" Then ComboBox1.AddItem c.Offset(0, 2).Text
Next
End Sub

Dim montableau(1000) As String
Private Sub UserForm_initialize()
'je souhaite alimenter la combobox avec les items de la colonne C
'uniquement si les éléments correspondants dans la colonne A commencent
'par "401". La liste C doit être triée.
Dim c As Range
Dim drligne, x As Long
'Dim montableau(1000) As String
drligne = Range("a65000").End(xlUp).Row
For Each c In Range("a8:a" & drligne)
If Left(c.Text, 3) = "401" Then
montableau(x) = c.Text
ComboBox1.AddItem c.Offset(0, 2).Text
x = x + 1
End If
Next
End Sub
Private Sub ComboBox1_Change()
TextBox1 = montableau(ComboBox1.ListIndex)
End Sub

Private Sub ComboBox1_Change()
For Each c In Range("c8:c" & drligne)
If c = ComboBox1.Text Then
TextBox1.Text = c.Offset(0, -2).Text
TextBox2.Text = c.Offset(0, 1).Text
TextBox3.Text = c.Offset(0, 2).Text
TextBox4.Text = c.Offset(0, 3).Text
End If
Next
End Sub