Private Sub ComboBox1_Change()
Dim tablo As Variant
Dim tabloresultat(1 To 1, 1 To 11)
Dim i As Byte, j As Byte, k As Byte
tablo = Range('a5:k' & Range('a65536').End(xlUp).Row)
For i = 1 To UBound(tablo, 1)
If tablo(i, 1) = ComboBox1.Value Then
For j = 4 To 11
tabloresultat(1, j) = tabloresultat(1, j) + tablo(i, j)
Next j
End If
Next i
For k = 2 To 9
controls('TextBox' & k) = tabloresultat(1, k + 2)
Next k
End Sub