XL 2016 Remplir textbox avec RechercheV Equiv après choix dans deux combobox

Option Explicit
Private Sub UserForm_Initialize()
  ComboBox1.List = [code].Value
  ComboBox2.Column = [titre].Value
End Sub

Private Sub ComboBox1_click()
  If Me.ComboBox2 <> "" Then affiche
End Sub

Private Sub ComboBox2_click()
  If Me.ComboBox1 <> "" Then affiche
End Sub

Sub affiche()
    Me.TextBox1 = Application.Index([nbres], Me.ComboBox1.ListIndex + 1, Me.ComboBox2.ListIndex + 1)
End Sub

Option Explicit
Private Sub UserForm_Initialize()
   ComboBox1.List = Feuil1.Range("a2:a11").Value
   ComboBox2.Column = Feuil1.Range("b1:g1").Value
   End Sub
Private Sub ComboBox1_Change()
   RenseignerLabel
   End Sub
Private Sub ComboBox2_Change()
   RenseignerLabel
   End Sub
Private Sub RenseignerLabel()
   Me.TextBox1.Text = Feuil1.[b2].Offset(ComboBox1.ListIndex, ComboBox2.ListIndex).Value
   End Sub