Gestion des erreurs d'intégrités

j'ai un fichier Excel que j'importe dans ma table tampon Windev l'importation est parfaite maintenant le problème est celui d'enregistrer les données dans chacunes des tables de ma BD.
Mon fichier Excel contient les données des tables BIENS,AGENCE,EMPLACEMENT,FOURNISSEUR et FAMILLES, C'est un fichier des BIENS Voici mon code:


HLitRecherche(BIEN,Bien_id,BIEN.Bien_id)
SI HTrouve() ALORS
SINON
i,var_agenceid,var_personnelid,var_familleid,var_emplacementId,Var_fournisseurid sont des entier
Sablier(Vrai)
JAUGE_Jauge..Visible=Vrai
JAUGE_Jauge..BorneMin=1
JAUGE_Jauge..BorneMax=TableOccurrence(TABLE_BiensImportés)

POUR i=2 A TableOccurrence(TABLE_BiensImportés)


SI HLitRecherche(AGENCE,AGENCE.Agence_nom,TABLE_BiensImportés.COL_Denomination_Agence[i],hIdentique) ALORS
var_agenceid=AGENCE.Agence_id
SINON
AGENCE.Agence_code=TABLE_BiensImportés.COL_Code_Agence[i]
AGENCE.Agence_nom=TABLE_BiensImportés.COL_Denomination_Agence[i]
HAjoute(AGENCE)
var_agenceid=AGENCE.Agence_id
FIN
var_agenceid++


SI HLitRecherche(EMPLACEMENT,EMPLACEMENT.Emplacement_Libelle,TABLE_BiensImportés.COL_Emplacement[i],hIdentique) ALORS
var_emplacementId=EMPLACEMENT.Emplacement_id
SINON
EMPLACEMENT.Emplacement_code=TABLE_BiensImportés.COL_Code_Emplacement[i]
EMPLACEMENT.Emplacement_Libelle =TABLE_BiensImportés.COL_Emplacement
HAjoute(EMPLACEMENT)
var_emplacementId=EMPLACEMENT.Emplacement_id
FIN
var_emplacementId++

SI HLitRecherche(FAMILLE,FAMILLE.Famille_libellé,TABLE_BiensImportés.COL_Categorie_Famille[i],hIdentique) ALORS
var_familleid=FAMILLE.Famille_libellé
SINON
FAMILLE.Famille_libellé=TABLE_BiensImportés.COL_Categorie_Famille[i]
HAjoute(FAMILLE)
var_familleid=FAMILLE.Famille_libellé
FIN
var_familleid++


BIEN.Bien_AncienCode=TABLE_BiensImportés.COL_Ancien_Code[i]
BIEN.Bien_id=TABLE_BiensImportés.COL_Identifiant_du_Bien[i]
BIEN.Bien_CodeBarre=TABLE_BiensImportés.COL_Code_Barre[i]
BIEN.Bien_IntituleComptable=TABLE_BiensImportés.COL_Intitulé_Comptable[i]
BIEN.Bien_etat=TABLE_BiensImportés.COL_Etat_du_Bien[i]
BIEN.Bien_DateAcquisition=TABLE_BiensImportés.COL_Date_d_acquisition[i]
BIEN.Bien_VNC=TABLE_BiensImportés.COL_Valeur_Nette_Comptable[i]
BIEN.Bien_Amortissement=TABLE_BiensImportés.COL_Amortissements[i]
BIEN.Bien_Valeur=TABLE_BiensImportés.COL_Prix_d_achat[i]
BIEN.Bien_NumSerie=TABLE_BiensImportés.COL_Numero_Serie[i]
BIEN.Bien_latitude=TABLE_BiensImportés.COL_Latitude[i]
BIEN.Bien_Longitude=TABLE_BiensImportés.COL_Longitude[i]
BIEN.Bien_Parent=TABLE_BiensImportés.COL_Bien_Parent[i]


BIEN.Agence_id=var_agenceid
BIEN.Emplacement_id=var_emplacementId
BIEN.Personnel_id=var_personnelid
BIEN.Famille_id=var_familleid
HAjoute(BIEN)

HExécuteRequête(REQ_LiaisonBIEN_EXO,hModifieFichier)
HLitPremier(REQ_LiaisonBIEN_EXO)
TANTQUE PAS HEnDehors(REQ_LiaisonBIEN_EXO)
HAjoute(EXERCICE_BIENS,hVérifieDoublon)
HLitSuivant(REQ_LiaisonBIEN_EXO)
FIN



FIN
JAUGE_Jauge..Libellé=TableOccurrence(TABLE_BiensImportés)+" enregistrement(s)"
JAUGE_Jauge..Valeur++
FIN

mon pb est que j'ai une erreur de cardinalités qui s'affiche après exécution du dit code stp aidez moi!!!!!!