Voici un bout de code qui te permetra de gerer ton problème.


Private Sub CompteLigneFichier()
Dim nomfichiertext As String
Dim numfichier As Short, taillefichier, MaLigne As...