Private Sub ComboBox2_Change()
On Error Resume Next
TextBox1.Text = toto(ComboBox2.Value, ComboBox1.Value)
If Err.Number Then TextBox1.Text = "?"
End Sub
Function toto&(cat%, éch%)
toto = Array(, Array(, 9450, 9900, 10350, 10800, 11250, 11700, 12150, 12600, 13050, 13500, 13950, 14400), _
Array(, 10350, 10845, 11340, 11835, 12330, 12825, 13320, 13815, 14310, 14805, 15255, 15750), _
Array(, 458796, 254879, 12457, 22222, 12457, 22222, 12457, 22222, 12457, 22222, 12457, 22222), _
Array(, 4444, 555555, 4789654, 1133985, 12330, 12825, 13320, 12600, 13050, 14805, 15255, 15750), _
Array(, 25845, 555, 77, 9966, 12458, 22223, 12458, 13815, 14310, 22223, 12458, 22223), _
Array(, 125487, 2222, 555, 25478, 12330, 12825, 13320, 22223, 12458, 14805, 15255, 15750), _
Array(, 5576584, 1254, 2222, 525698, 12459, 22224, 12459, 12600, 13050, 14805, 12459, 22224), _
Array(, 885511, 555555, 5555, 745851, 12330, 12825, 13320, 13815, 14310, 22223, 15255, 15750), _
Array(, 74458967, 44444, 2547, 4444425, 12460, 22225, 12460, 22224, 12459, 14805, 12460, 22225), _
Array(, 254698, 55555, 22222, 55555, 12330, 12825, 13320, 12600, 13050, 22224, 15255, 15750), _
Array(, 78596, 522222, 555555, 24785, 12461, 22226, 12461, 13815, 14310, 14805, 12461, 22226), _
Array(, 5555, 457892, 5874695, 5874529, 12330, 12825, 13320, 22225, 12460, 14805, 15255, 15750), _
Array(, 8888, 2548962, 58495, 587458, 12462, 22227, 12462, 12600, 13050, 22224, 12462, 22227), _
Array(, 77777, 54785369, 24875236, 54782, 12330, 12825, 13320, 13815, 14310, 14805, 15255, 15750), _
Array(, 444444, 25478, 888888, 888888, 12463, 22228, 12463, 22226, 12461, 22225, 12463, 22228), _
Array(, 555, 5555555, 555555, 555555, 12330, 12825, 13320, 12600, 13320, 14805, 15255, 15750), _
Array(, 78542, 48567, 25687, 547823, 12464, 22229, 12464, 13815, 12465, 14805, 12464, 22229))(éch)(cat)
End Function