' Gris : pas d'assistant
' Vert : 1 assistant
' Jaune : 2 assistants
' Rouge : >= 3 assistants

Couleur = nothing

for each w_besoin as Interfaces.Besoin in Tache.Liste_Besoins()
    if w_Besoin.EstValide() then
        if w_Besoin.Libelle.contains("assistant") then
            Select w_Besoin.Quantite
            Case 0
                Couleur =  Color.FromArgb(204,204,255) 
            Case 1
                Couleur = color.green
            Case 2
                Couleur = color.yellow
            Case >= 3
                Couleur = color.red
            End Select
        end if
    end If
next