cellules deroulantes

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 5 And Target.Count = 1 Then
    If Target <> "" Then
      If IsError(Application.Match(Target.Value, [ville], 0)) Then
        If MsgBox("On ajoute?", vbYesNo) = vbYes Then
          [ville].End(xlDown).Offset(1, 0) = UCase(Target.Value)
          Sheets("parametre").[ville].Sort key1:=Sheets("parametre").Range("A2")
        Else
          Application.Undo
        End If
      End If
      Application.EnableEvents = False
      Target.Value = UCase(Target.Value)
      Application.EnableEvents = True
    End If
  End If
End Sub