Bonjour j'ai actuellement un problème avec mes List(of T)

Donc j'ai trois classes une classe aliments
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
<Serializable()> Public Class Aliments
                                 Public Nom As String
                                 Public kcal As Integer
                                 Public Sub New()
                                  End Sub
             End Class

une autre classe Repas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
<Serializable()> Public Class Repas
    Public diner As List(Of Aliments)
    Public jour As Date
    Public Sub New()
    End Sub
End Class
et enfin une classe Personne qui contient une
Code : Sélectionner tout - Visualiser dans une fenêtre à part
list(of Repas)
quand je veux ajouter mes aliments au repas lors de la deserialisation (qui fonctionne pour ma sauvegarde et mon chargement de Personne)

avec ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Dim name As String
        Dim FluxDeFichier As Stream
        Dim Deserialiseur As New XmlSerializer(GetType(Aliments))
        Dim nourriture As New Aliments
        Dim srepas As New Repas
        srepas.jour = DateA.Text
        For Each ps In List.SelectedItems
            name = "Aliments\" + ps + ".xml"
            If File.Exists(name) Then
                'On ouvre le fichier et recupere son flux
                FluxDeFichier = File.OpenRead(name)
 
                'Désérialisation et insertion dans le tableau de Film()
                nourriture = Deserialiseur.Deserialize(FluxDeFichier)
                'MsgBox(nourriture.kcal)
                ' MsgBox(nourriture.Nom)
                srepas.diner.Add(nourriture)
                'Fermeture du flux
                FluxDeFichier.Close()
            End If
        Next
        FDepart.human.alimentation.Add(srepas)
j'obtient une erreur
L'exception NullReferenceExecption n'a pas été gérée.
La référence d'objet n'est pas définie à une instance d'un objet.
sur la ligne srepas.diner.Add(nourriture)
si vous une idée pour m'aider,merci d'avance.