Public Sub ajoutercarte(ByRef C() As carte, ByRef tailleC As Integer, ByVal e As carte)

        C(tailleC) = e
        tailleC = tailleC + 1

    End Sub


    Public Sub distribuercarte(ByRef J() As joueur)
        Dim n As Integer
        Dim i As Integer
        Dim s As Integer
        While tabTailleC <> 0
            For i = 0 To 7
                For s = 0 To 3
                    n = nbaleatoire(tabTailleC - 1)
                    ajoutercarte(J(s).main, i, tabC(n))
                    supprimercarte(tabC, tabTailleC, n)
                Next
            Next
        End While

    End Sub

  Public Structure carte
        Dim val As Integer
        Dim coul As String
        Dim nom As String
        Dim point As Integer
    End Structure


    Public Structure joueur
        Dim main() As carte
        Dim preneur As Boolean
        Dim donneur As Boolean
        Dim score As Integer
    End Structure