Liste intuitive à 2 colonnes avec ComboBox

Bonjour,
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Dim a()
Private Sub UserForm_Initialize()
  a = [CLIENTS].Value
  Me.ComboBox1.List = a
  SendKeys "{F4}"
End Sub
Private Sub ComboBox1_Change()
   If Me.ComboBox1.ListIndex = -1 Then
   Dim b()
   tmp = UCase(Me.ComboBox1) & "*"
   j = 0
   For i = LBound(a) To UBound(a)
    If UCase(a(i, 1)) Like tmp Then
      j = j + 1: ReDim Preserve b(1 To 2, 1 To j)
      b(1, j) = a(i, 1): b(2, j) = a(i, 2)
    End If
   Next i
   If j > 0 Then
      If UBound(b, 2) > 1 Then
        Me.ComboBox1.List = Application.Transpose(b)
      Else
        Dim c(1 To 1, 1 To 2)
        c(1, 1) = b(1, 1): c(1, 2) = b(2, 1)
        Me.ComboBox1.List = c
      End If
      Me.ComboBox1.DropDown
   End If
  Else
    Me.TextBox1 = Me.ComboBox1.Column(1)
  End If
End Sub
Private Sub CommandButton1_Click()
  ActiveCell = Me.ComboBox1.Column(0)
  ActiveCell.Offset(0, 1) = Me.ComboBox1.Column(1)
  Unload Me
End Sub
Jacques Boisgontier