Dim L as string, T() as string ' Ouvre le ficheir en lecture Open "Fichier.txt" for Input as #1 ' Tant qu'on est pas à la fin du fichier While not eof(1) ' Lit une ligne du fichier Line Input #1,L ' Eclate la ligne avec la tabulation en séparateur T = Split(L,vbTab) ' Affiche le 5 eme item du tableau (de base 0, donc 5eme -> 4) Msgbox T(4) Wend Close #1