Attribute VB_Name = "Module5"
Public Function Insert_Lien(ByVal pad As Double, ByVal broche As Double) As Long

    ' incrémente le nombre de lien
    NB_LIEN = NB_LIEN + 1

    ' redimensionne le tableau de liens
    ReDim Preserve Objet_LIEN(NB_LIEN - 1)

    ' instancie une nouvelle PAD
    Set Objet_LIEN(NB_LIEN - 1) = New lien
    
    ' defini les parametres de la nouvelle PAD
    tmp = Objet_LIEN(NB_LIEN - 1).Set_LIEN_Parametres(NB_LIEN, pad, broche)

    ' retourne l'ID
    Insert_Lien = NB_LIEN - 1
    
End Function