XL 2010 Erreur de compilation - Incompatibilité de type: tableau ou type défini par l'utilisateur

For i = 1 To UBound(Tbg)
         If Tbg(i, 2) = ShFPA.Range("D8").Value Then n = n + 1
      Next i

      j = 0
      Dim TbR: ReDim TbR(1 To n, 1 To UBound(Tbg, 2))
      For i = 1 To UBound(Tbg)
         If Tbg(i, 2) = ShFPA.Range("D8").Value Then
            j = j + 1
            For k = 1 To UBound(Tbg, 2)
               TbR(j, k) = Tbg(i, k)
            Next k
         End If
      Next i

Call Quick(TbR(), LBound(TbR, 1), UBound(TbR, 1), 1, True) ''ici le plantage