French lire donnée indexée dans une liste

Sub convCSV
    Dim su As StringUtils
    Dim list1 As List
    Dim i, acsv(20,4,2) As Int
    list1 = su.LoadCSV(File.DirAssets, "tests.txt", ",")
    Dim sCol() As String
    sCol = list1.Get(0)  'parameter value seems to have no effect
    Log(sCol.Length)   'shows correct
    For i = 0 To sCol.Length-1  'loops correctly multiple times
      acsv(i,i Mod 4,0)=sCol(i)   
    Next   
End Sub

        If stringList.Get(0) <> Null Then
        seccol = stringList.Get(0)

Sub convCSV
    Dim su As StringUtils
    Dim list1 As List
    Dim i, acsv(20,4,2) As Int
   
   
    list1 = su.LoadCSV(File.DirAssets, "testB4X.csv", ",")
    Dim sb As StringBuilder
    sb.Initialize

    For Each sarray() As String In list1
       
        For Each s As String In sarray
            sb.Append(s).Append(" ")
        Next
        sb.Append(CRLF)
    Next
   
    Log("tout le fichier, ligne par ligne, apres de-CSV:")
    Log(sb.ToString)
   
    Log("je vais extraire la 3me colonne de chaque ligne:")
    Dim listebaseesurcol2 As List
    listebaseesurcol2.Initialize
    Dim troisiemcolonne As Int = 2
   
    For Each sarray() As String In list1
        listebaseesurcol2.Add( sarray( troisiemcolonne ) )
    Next
       
    For Each s As String In listebaseesurcol2
        Log(s)
    Next
End Sub

 Sub Button3_Click
    Dim su As StringUtils
    Dim list1 As List = su.LoadCSV(File.DirAssets, "testB4X.csv", ",")
    For Each sarray() As String In list1
        Log(sarray(2))
    Next
End Sub