Sub compteligne()
Open “D:/licenceTAL/xxx/dh89.txt” For Input As 1
compteur = 0
While (EOF(1) = 0)
Line Input #1, a$
compteur = compteur + 1
Wend
Close (1)
MsgBox (”Le fichier contient ” + Str(compteur) + ” lignes”)
End Sub