Manipulation de tableaux dans des types

Bonjour à tous,

Je souhaite remplir mon objet de type "Liab" qui lui même contient un objet de type "product". Je suis ensuite confronté à un problème pour remplir mon premier objet.

'Définition d'un produit
Type Product
    NameProduct As String
    ModelPoint_Product() As ModelPoint
End Type

'type contenant tous les produits
Type Liab
    ModelPoint_Liab() As Product
    total As Double
End Type

j'effectue ensuite la commande suivante :

For i = 1 To nb_product

    With Liability
        .total = 0
        .ModelPoint_Liab(i).NameProduct = Product
    End With
    
    For j = 1 To nb_MP
    Next j
Next i

J'ai comme message d'erreur que l'indice n'appartient pas à la sélection au moment de renseigner le nom du produit...

J'espère avoir été clair dans mes explications et que quelqu'un peut me lancer sur une piste. J'utilise peut être pas la fonction "type" comme il le faut.

Bien cordialement,

Gougaille