XL 2010 Problème pour remplir un Array

listeoptions = [Liste_ComboChx]

Sub Essai()

Dim listeoptions As Variant

     listeoptions = [Liste_ComboChx]

     [B16] = listeoptions(0)

End Sub

Sub range_vertical_to_array_1dim()
listeoptions = Application.Transpose([Liste_ComboChx].Value)
MsgBox listeoptions(1)
End Sub

Sub range_horizontal_to_array_1dim()
listeoptions = Application.Transpose(Application.Transpose([Liste_ComboChx2].Value))
MsgBox listeoptions(1)
End Sub

Sub xrange_horizontal_to_array_1dim()
listeoptions = Application.Index([Liste_ComboChx2].Value, 1, 0)
MsgBox listeoptions(1)
End Sub

Dim r As Range, listeoptions(), i&
Set r = [Liste_ComboChx]
ReDim listeoptions(1 To r.Count)
For i = 1 To r.Count
    listeoptions(i) = r(i)
Next

Sub Lecture()
    Dim i As Integer, listeoptions
    [A3] = Int(100 * Rnd()) ' init tableau
   
' Transfert tableau dans array
    listeoptions = [Liste_ComboChx]
   
' Ecriture array dans cellules Col D
    For i = 1 To UBound(listeoptions)
        Cells(i + 2, 4) = listeoptions(i, 1)
    Next i
End Sub

Sub Essai()
Dim listeoptions As Variant
     listeoptions = [Liste_ComboChx]
     [B16] = listeoptions(0)
End Sub

Sub Essai()
     listeoptions = [Liste_ComboChx]
     [B16] = listeoptions(1,1)
End Sub

Option Explicit

Option Base 1
.............................................................................

Private Sub Workbook_Open()

    Dim i As Byte, listeoptions As Variant, dico As Object
    
    Set dico = CreateObject("Scripting.Dictionary")
    
    'Dresse la liste de tous les items mémorisés de la ComboBox "ComboChx" avant la dernière fermeture du classeur
    listeoptions = Application.Transpose([Liste_ComboChx].Value)
    
    'For i = 0 To UBound(listeoptions) 'rempli le dictionnaire ("dico") avec les éléments de la matrice "listeoptions" (Option Base 0)
    For i = 1 To UBound(listeoptions) 'rempli le dictionnaire ("dico") avec les éléments de la matrice "listeoptions" (Option Base 1)
        dico(listeoptions(i)) = ""
    Next
    Sheets("Hoja1").ComboChx.List = dico.keys 'dresse la liste de la ComboBox "ComboChx" à partir du dictionnaire
    Sheets("Hoja1").ComboChx.ListIndex = 0 'sélection par défaut du 1er item de la liste de la ComboBox "ComboChx"
      
End Sub