Option Explicit
Private TDP()
Private Sub UserForm_Initialize()
Dim R As Range
Set R = [Référence]
ComboBox1.List = R.Value
TDP = R.Offset(, 1).Resize(, 2).Value
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.MatchFound Then
TextBox1 = TDP(ComboBox1.ListIndex + 1, 1)
TextBox2 = TDP(ComboBox1.ListIndex + 1, 2)
Else
TextBox1 = ""
TextBox2 = ""
End If
End Sub