Function GetNbLineInFile(ByVal Chemin As String, ByVal NomFichier As String) As Long
Const ForAppending = 8
Dim fs As Object, File As Object
If Not Dir(Chemin & NomFichier) = Empty Then
Set fs = CreateObject("Scripting.FileSystemObject")
Set File = fs.OpenTextFile(Chemin & NomFichier, ForAppending)
GetNbLineInFile = File.Line - 1
File.Close
Set fs = Nothing
End If
End Function