XL 2016 VBA Curiosité ComboBox

Sub ComboBox1_ValueFromList()
Dim macombo As MSForms.ComboBox
    Set macombo = Feuil1.ComboBox1
    macombo.List = Feuil1.Range("A1:A3").Value
'    macombo.ListIndex = -1 ' Rien
'    macombo.ListIndex = 0 ' AAA
    macombo.ListIndex = 1 ' BBB
    ' Etc.
End Sub

'----------------------------------------------------
'Lorsqu'une ComboBox (1) est chargée via sa propriété
'List (ComboBox.List =) et non pas avec sa propritété
'ListFillRange (ComboBox.ListFillRange =) et qu'on la
'valorise (ComboBox.Value =) avec une de ses valeurs
'de liste (2) numérique, sa propriété ListIndex est
'valorisée à -1 !
'Ce n'est pas le cas si les conditions (1) & (2) ne
'sont pas réunies, auquel cas sa propriété ListIndex
'indique bien la position de la valeur dans la liste.
'----------------------------------------------------
Private Sub ComboBoxValeur(ByRef ComboBox As ComboBox, ByVal Valeur As Variant)
    Dim i As Integer
    Dim TabValeurs() As Variant
 
    'Valorise la ComboBox
    ComboBox.Value = Valeur
 
    'ComboBox valorisée avec une de ses valeurs texte
    If ComboBox.ListIndex >= 0 Then Exit Sub
 
    'ComboBox valorisée avec une de ses valeurs numériques
    TabValeurs = ComboBox.List
 
    For i = LBound(TabValeurs, 1) To UBound(TabValeurs, 1)
        If CStr(TabValeurs(i, 0)) = CStr(Valeur) Then Exit For
    Next i
 
    'Valeur trouvée, corrige le ListIndex
    If i <= UBound(TabValeurs) Then
        ComboBox.ListIndex = i
    End If
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then ComboBox2_ValueFromList True
End Sub

Public Sub ComboBox2_ValueFromList(Optional active As Boolean = False)
   If Not active Then
   'ActiveSheet.ComboBox2.ListFillRange = ""
    ActiveSheet.ComboBox2.List = ActiveSheet.Range("B1:B3").Value
    ActiveSheet.ComboBox2.Value = 2020
    'ActiveSheet.ComboBox2.Value = CDbl(2020)
    'ActiveSheet.ComboBox2.Value = CStr(2020)
    'ActiveSheet.ComboBox2.Value = Format(2020, "0000")
    End If
    If active = True Then MsgBox "ComboBox2.ListIndex = " & ActiveSheet.ComboBox2.ListIndex
End Sub

ActiveSheet.ComboBox2.List = ActiveSheet.Range("B1:B3").Formula

Sub ComboBox2_ValueFromList()
    Dim TabVal() As Variant
    Dim i As Integer
    Dim j As Integer
    
    'Chargement du Range en table
    TabVal = ActiveSheet.Range("B1:B3").Value
    
    'Transformation des valeur en String
    For i = 1 To UBound(TabVal, 1)
        For j = 1 To UBound(TabVal, 2)
            TabVal(i, j) = CStr(TabVal(i, j))
        Next j
    Next i
    
    ActiveSheet.ComboBox2.ListFillRange = ""
    
    'Chargement de la table de String en ComboBox
    ActiveSheet.ComboBox2.List = TabVal
    
    ActiveSheet.ComboBox2.Value = "2020"
    MsgBox "ComboBox2.ListIndex = " & ActiveSheet.ComboBox2.ListIndex
End Sub

Sub ComboBox2_ValueFromList()
    Dim TabVal() As Variant
    Dim i As Integer
    Dim X&
    'Chargement du Range nen table
    TabVal = ActiveSheet.Range("B1:B3").Value
    
    'Transformation des valeur en String
    'For i = 1 To UBound(TabVal, 1)
        'TabVal(i, 1) = CStr(TabVal(i, 1))
    'Next i
    
    ActiveSheet.ComboBox2.ListFillRange = ""
    
    'Chargement de la table de String en ComboBox
    ActiveSheet.ComboBox2.List = TabVal
    
    x = Application.IfError(Application.Match(2020, ActiveSheet.ComboBox2.List, 0), -1) - 1
       ActiveSheet.ComboBox2.ListIndex = x
    'ActiveSheet.ComboBox2.Value = "2020"
    MsgBox "ComboBox2.ListIndex = " & ActiveSheet.ComboBox2.ListIndex
End Sub

'------------------------------------------------------------
'Chargement d'une ComboBox à partir d'un Range ou d'une Table
'en s'assurant que les items de la ComboBox sont tous de type
'String pour éviter les comportements étranges sur les items
'de type valeurs numériques.
'------------------------------------------------------------
'https://www.excel-downloads.com/threads/vba-curiosite-combobox.20051806/
'------------------------------------------------------------
Sub ComboBoxListLoad(ByRef Cmb As ComboBox, ByRef RngOrTab As Variant, Optional ItemFormat As String = "@")
    Dim TabVal() As Variant
    Dim TabValArea() As Variant
    Dim Area As Range
    Dim i As Long
    Dim k As Long
    Dim ErrNumber As Variant
    
    'Suppression du ListFillRange / RowSource éventuel
    On Error Resume Next
    Cmb.ListFillRange = ""  'ComboBox non UserForm
    Cmb.RowSource = ""      'ComboBox UserForm
    On Error GoTo 0

    'L'argument est de type Range
    If TypeOf RngOrTab Is Range Then
        
        'D'une seule  cellule
        If RngOrTab.Cells.Count = 1 Then
            ReDim TabVal(1 To 1)
            TabVal(1) = RngOrTab.Value
        
        'De plusieurs cellules
        Else
            ReDim TabVal(1 To RngOrTab.Cells.Count)
            k = 0
            
            'Parcours des Areas du Range
            For Each Area In RngOrTab.Areas
                TabValArea = Area.Columns(1).Value
                
                For i = 1 To UBound(TabValArea, 1)
                    TabVal(k + i) = TabValArea(i, 1)
                Next i
                k = k + UBound(TabValArea, 1)
            Next Area
        End If
        
    'L'argument est de type Tableau
    Else
        On Error Resume Next
        i = UBound(RngOrTab, 2)
        ErrNumber = Err.Number
        On Error GoTo 0
        
        'Table à 1 dimension
        If ErrNumber <> 0 Then
            TabVal = RngOrTab
        
        'Table à 2 dimensions
        Else
            For i = LBound(TabVal, 1) To UBound(TabVal, 1)
                TabVal(i) = RngOrTab(i, 1)
            Next i
        End If
    End If

    'Conversion des valeurs en String ou mise au format
    For i = LBound(TabVal) To UBound(TabVal)
        TabVal(i) = Format(TabVal(i), ItemFormat)
    Next i
    
    'Chargement de la ComboBox
    Cmb.List = TabVal
End Sub