Problème avec désérialisation json en VB NET

Question

VB NET

Bonjour,
J'ai un fichier json avec une hiérarchie "simple" (voir plus bas) que je désirerais désérialiser et placer dans un tableau avec cette structure et le code dont j'ai placé la partie principale.
Cela fonctionnait avec un fichier json "plat", écrit "à la main" dans un langage de bas niveau, sans key, sans hiérarchie. Les classes ont du bon mais elle imposent parfois un carcan dont on ne sait se défaire.
Bon donc, si vous avez une idée pour me dépatouiller... ou je repasse à l'écriture "manuelle"

Merci !

Structure ST_TFA
'Dim canal As Integer
Dim Loc As String 'localisation
Dim Dt As Date ' Date et heure comme 2021-07-24 10:55
Dim Temp As Single ' Température
Dim Hum As Integer ' humidité
End Structure

Friend Class TFA
    ' Public Property canal As String
    Public Property Loc As String
    Public Property Dt As String
    Public Property t As Single
    Public Property hm As Integer
End Class

Function LectureJson()
Dim sNom As String = sMesDoc & "tfa.json"
Dim sLigne As String
Dim Tbl_TFA(7) As ST_TFA

    Dim FileReader = My.Computer.FileSystem.OpenTextFileReader(sNom)
    sLigne = FileReader.ReadLine
    FileReader.Close()
    Dim JSON = JsonConvert.DeserializeObject(Of TFA())(sLigne)

....

End Function

{
"0": {
"loc": "Exterieur",
"dt": "2022-02-15 18:16",
"t": "8.26",
"hm": "93"
},
"1": {
"loc": "Salon",
"dt": "2022-02-15 18:17",
"t": "20.48",
"hm": "55"
},

...

"7": {
"loc": "SdbHaut",
"dt": "2022-02-15 18:16",
"t": "17.82",
"hm": "50"
}
}