Asp.net MVC Remplacer TextBox par DropDownList dans une view

Public Class Utilisateur
    Public Property Id As Integer
    Public Property DirectionId As Integer
    Public Property Departement As String
End Class

Public Class Direction
    Public Property Id As Integer
    Public Property Valeur As String
    Public Property Supprime As Boolean
End Class

@ModelType ANNUAIRE.Utilisateur
@Code
    ViewData("Title") = "Create or Edit"
    Layout = "~/Views/Shared/_Layout.vbhtml"
End Code

<h2>Create Or Edit</h2>

@Using (Html.BeginForm()) 
    @Html.AntiForgeryToken()

    @<div Class="form-horizontal">
        <h4>Utilisateur</h4>
        <hr />
        @Html.ValidationSummary(True, "", New With {.class = "text-danger"})
        @Html.HiddenFor(Function(model) model.Id)

        <div class="form-group">
            @Html.LabelFor(Function(model) model.DirectionId, htmlAttributes:= New With { .class = "control-label col-md-2" })
            <div class="col-md-10">
                @Html.EditorFor(Function(model) model.DirectionId, New With {.htmlAttributes = New With {.class = "form-control"}})
                @Html.ValidationMessageFor(Function(model) model.DirectionId, "", New With {.class = "text-danger"})
            </div>
        </div>

        <div class="form-group">
            @Html.LabelFor(Function(model) model.Departement, htmlAttributes:=New With {.class = "control-label col-md-2"})
            <div class="col-md-10">
                @Html.EditorFor(Function(model) model.Departement, New With {.htmlAttributes = New With {.class = "form-control"}})
                @Html.ValidationMessageFor(Function(model) model.Departement, "", New With { .class = "text-danger" })
            </div>
        </div>
   </div>
End Using