XL 2010 Adition du contenu d'un list box.

Sub Filtre()
    Dim Tbl(), Total As Long
    début = CDate(Me.TextBox1)
    fin = CDate(Me.TextBox2)
    ColDate = 1
    NbCol = UBound(TblBD, 2)
    n = 0
    For i = LBound(TblBD) To UBound(TblBD)
      If Int(TblBD(i, ColDate)) >= début And Int(TblBD(i, ColDate)) <= fin Then
        n = n + 1: ReDim Preserve Tbl(1 To NbCol + 1, 1 To n)
        For k = 1 To NbCol: Tbl(k, n) = TblBD(i, k): Next k
        Total = Total + TblBD(i, 5)
       End If
     Next i
     If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
     TextBox3 = Total
End Sub