WD Importation de fichier csv

Bonsoir Chers amis j espéré que vous allez m aider et merci d avance .j ai déjà un code qui importe déjà des fichiers excel cependant en plus des fichiers excelle je veux pouvoir importer des fichiers Csv et je sais pas comment merci de m aider .
ceci est mon code d imoportation
/////////////////////////////////////
SI SAI_feuille<=0 OU SansEspace(SAI_feuille)="" ALORS
Info("Renseignez le numéro de feuille")
RETOUR
SINON
nFeuille=SAI_feuille
FIN

SI SAI_ligne<=0 OU SansEspace(SAI_ligne)="" ALORS
Info("Renseignez la ligne de debut")
RETOUR
SINON
nLigneDebut=SAI_ligne
FIN

SI SAI_ligneFin<=0 OU SansEspace(SAI_ligneFin)="" ALORS
nLigneFin=0
SINON
nLigneFin=SAI_ligneFin
FIN


valide est un booléen = Faux
//
FichierXls est un xlsDocument
// Ouvre le sélecteur de fichiers (en filtrant les fichiers excel)
CheminFichier est chaîne = fSélecteur("", "", "Sélectionnez un fichier.....", "Document Excel (*.xls; *.xlsx)" + TAB + "*.xls;*.xlsx", "*.xls;*.xlsx")

////////////////////VERIFICATION SI LE FICHIER A ETE OUVERT AVEC SUCCES
SI fFichierExiste(CheminFichier) ALORS
// Ouvre le fichier indiqué
FichierXls =xlsOuvre(CheminFichier)
SI ErreurDétectée ALORS
Erreur(ErreurInfo())
Info("Si le fichier est ouvert ,fermez le fichier avant l'importation")
RETOUR
FIN
//LA FEUILLE DU FICHIER A MANIPULER
SI xlsFeuilleEnCours(FichierXls,nFeuille)=Vrai ALORS
//
SINON
Info("le document ne comporte pas"+nFeuille+" de feuille ")
RepriseSaisie(SAI_feuille)
FIN
FIN



SI ErreurDétectée ALORS
Erreur(ErreurInfo())
valide=Faux
SINON

//variable
i,nbrLigneFeuille,nLignDeFin est un entier=0

SI fFichierExiste(CheminFichier) ALORS

nbrLigneFeuille = xlsNbLigne(FichierXls,Faux)

//////////////////////////fixe la ligne de fin d'importation avec verification
nLignDeFin = nbrLigneFeuille
SI nLigneFin<=0 ALORS
nLignDeFin=nbrLigneFeuille
SINON
SI nLigneFin<=nbrLigneFeuille ALORS
nLignDeFin=nLigneFin
SINON
nLignDeFin=nbrLigneFeuille
FIN
FIN
///////////////////////////////////////////////////////////////////

///////////nombre de ligne
nNbrtotLigne est un entier=(nLignDeFin-nLigneDebut)+1
b est un entier = 0
nOrdreDocumentPourBoucle est un entier
//parcours des enregistrements du fichier
POUR i=nLigneDebut À nLignDeFin


SI FichierXls <> -1 ALORS
JAUGE_Jauge..Visible = Vrai
JAUGE_Jauge..Valeur = (i*100)/nNbrtotLigne

// bOkImport est un booléen=0

// sCodeR=(xlsDonnée(FichierXls,i,nCode,faux))
// sLibR=(xlsDonnée(FichierXls,i,nLib,faux))
xlsDonnée(FichierXls,i,SAI_numero,Faux)
SI HLitRecherchePremier(PLAN_COMPTABLE,PC_NO_COMPTE, xlsDonnée(FichierXls,i,SAI_numero,Faux),hIdentique)=Vrai ALORS
Info("Ce numéro de compte existe deja")
// retour
SINON
HRAZ(PLAN_COMPTABLE)
PLAN_COMPTABLE.PC_NO_COMPTE=xlsDonnée(FichierXls,i,SAI_numero,Faux)
PLAN_COMPTABLE.PC_INTITULE_COMPTE=xlsDonnée(FichierXls,i,SAI_intitule,Faux)
PLAN_COMPTABLE.PC_CATEGORIE=1
SI Taille(xlsDonnée(FichierXls,i,SAI_numero,Faux))<=3 ALORS
PLAN_COMPTABLE.PC_TYPE=1
Info(PLAN_COMPTABLE.PC_TYPE)
SINON
PLAN_COMPTABLE.PC_TYPE=2
Info(PLAN_COMPTABLE.PC_TYPE)
FIN
Info(xlsDonnée(FichierXls,i,SAI_numero,Faux))
Info(xlsDonnée(FichierXls,i,SAI_intitule,Faux))
PLAN_COMPTABLE.PC_INACTIFS = 1
HAjoute(PLAN_COMPTABLE)
// EcranVersFichier()
FIN


valide=Vrai
SINON
Erreur("Le fichier Execel n'existe pas")
FIN
FIN
FIN
FIN
//message de fin d'importation
SI valide=Faux ALORS
Info("Une erreur a été détectée pendant le traitement")
Ferme()
SINON
Info("traitement effectué avec succès")
Ferme()
FIN