COMBOBOX : alimenter 2 combobox usf et afficher intersection

Const FEUILLE As String = "Feuil1"

Private var

Private Sub ComboBox1_Change()
ChargeTextBox
End Sub

Private Sub ComboBox2_Change()
ChargeTextBox
End Sub

Public Sub ChargeTextBox()
If ComboBox1 = "" Or ComboBox2 = "" Then Exit Sub
TextBox1 = var(ComboBox1.ListIndex + 2, ComboBox2.ListIndex + 2)
End Sub

Private Sub UserForm_Initialize()
Dim S As Worksheet
Dim R As Range
Dim i& Set S = Sheets(FEUILLE)
Set R = S.[a1].CurrentRegion
var = R
For i& = 2 To UBound(var, 1)
  ComboBox1.AddItem var(i&, 1)
Next i&
For i& = 2 To UBound(var, 2)
  ComboBox2.AddItem var(1, i&)
Next i&
End Sub