Somme des produit de deux colonne

' un tableau par catégorie de textbox
Dim TE(1 To 10) As String    ' equipements
Dim Tp(1 To 10) As Single    ' puissances
Dim Tq(1 To 10) As Single    ' quantites

' initialisation des tableaux depuis les textbox
' la propriété Controls permet d'acceder aux textbox via leur nom
Sub initT()
Dim k As Byte
For k = 1 To 10
  TE(k) = Me.Controls("txtE" & k).Text
  Tp(k) = Val(Me.Controls("txtp" & k).Text)
  Tq(k) = Val(Me.Controls("txtq" & k).Text)
Next k
End Sub

' transfert des tableaux vers feuille Source
Private Sub btnAjout_Click()
Dim lideb As Long, k As Long
Call initT
With Sheets("Source")
  lideb = 4 '.Range("A" & Rows.Count).End(xlUp).Row
  If lideb < 2 Then lideb = 2
  For k = 1 To 10
    .Range("A" & lideb + k - 1).Value = TE(k)
    .Range("B" & lideb + k - 1).Value = Tp(k)
    .Range("C" & lideb + k - 1).Value = Tq(k)
  Next k
End With
End Sub

' calcul bilan
Private Sub btnPuissance_Click()
Dim k As Byte, Bilan As Single
Bilan = 0
Call initT
For k = 1 To 10
  Bilan = Bilan + Val(Tq(k)) * Val(Tp(k))
Next k
MsgBox " Le bilan de puissance est : " & Bilan
End Sub

MsgBox [SumProduct((A2:A200)*(B2:B200))]