Option Explicit
Private Sub UserForm_Initialize()
ComboBox1.RowSource = ""
ComboBox1.List = WorksheetFunction.Transpose([REF])
End Sub
Private Sub ComboBox1_Change()
AfficheRésu
End Sub
Private Sub ComboBox2_Change()
AfficheRésu
End Sub
Private Sub AfficheRésu()
If ComboBox1.MatchFound And ComboBox2.MatchFound Then
TextBox1.Text = Format([PRIX].Item(ComboBox2.ListIndex + 1, ComboBox1.ListIndex + 1).Value, "0.00 €")
Else
Me.TextBox1.Text = ""
End If
End Sub