sFichier,sConteneur,sLigne,sTexte sont des chaînes x est un entier // Ouvre le sélecteur de fichiers sFichier = fSélecteur("", "", "Sélectionnez un fichier...", "Csv" + TAB + "*.csv", "*.csv") sConteneur=fChargeTexte(sFichier) sConteneur =UTF8VersChaîne(sConteneur,alphabetAnsi) POUR TOUTE CHAINE sLigne DE sConteneur SEPAREE PAR RC TableAjoute(Table1) TableSelectPlus(Table1,TableOccurrence(Table1)) x = 0 POUR TOUTE CHAINE sTexte DE sLigne SEPAREE PAR ";" x += 1 SI x <= 4 // Prendre les 4 premières colonnes {"TABLE1.COL_Colonne"+x,indChamp}=sTexte FIN FIN FIN