select case Tache.Code_Section
    case "IMP"
        '=== Impression ===============================
        Libelle = "Assistants: " & Tache.Besoin(4).Quantite 
    
    case "DEC"
        '=== Découpe ==================================
        Libelle = "Assistants: " & Tache.Besoin(5).Quantite 
    
    case "FAC"
        '=== Façonnge ==================================
        Libelle = "Assistants: " & Tache.Besoin(6).Quantite 

end Select