类型不匹配，通常匹配

Question

我正在使用VBA中的代码执行以下操作： - 在列表框中查找具有相同产品的文章（Listbox4） - 添加所有数量 - 影响其他列表框（Listbox2）中的原始产品

它昨天正在运行，但是当我今天运行它时，它说有一种类型不匹配，我看不到它，这让我发疯。这是代码

    For t = 0 To ListBox2.ListCount - 1
     dés = ListBox2.List(t, 0)
     quantité = 0
            For j = 12 To lastrow1
              If Cells(j, 3) = dés Then
              codeproduit = Cells(j, 1)
              End If
            Next j
              For i = 12 To lastrow1
                If Cells(i, 1) = codeproduit And Cells(i, 1) <> Cells(i, 2) Then
                For k = 0 To ListBox4.ListCount - 1
                    If Cells(i, 3) = ListBox4.List(k, 0) Then
                    add = ListBox4.List(k, 5)
                    quantité = quantité + add
                    End If
                Next k
        End If
         Next i
            ListBox2.List(t, 1) = quantité
       Next t

我认为“quantité”和“Listbox4.list（k，5）”不匹配，但为什么？