public class Melangeur : IComparer {
   private static Random rnd;
      static Melangeur() {
         rnd = new Random();
   }

   public int Compare(object x, object y) {
      if (Object.Equals(x, y))
         return 0;
      else {
         return rnd.Next(-1, 1);
      }
   }   
}

// Utilisation :
int[] toto = new int[16];
Array.Sort(toto, new Melangeur());

function Melangeur ($aTableau) {
  shuffle ($aTableau);

  return $aTableau;
}

if (!Array.prototype.duplicate) 
    Array.prototype.duplicate = function() { return [].concat(this);} 

if (!Array.prototype.sortRandom) 
    Array.prototype.sortRandom = function() { this.sort(function(elmt1, elmt2) { return ((2 * Math.round(Math.random())) - 1) }); } 

if (!Array.prototype.getRandomlySort)  
    Array.prototype.getRandomlySort= function() { return this.duplicate().sortRandom();} 

Public Class Melangeur 
  Implements System.Collections.IComparer
  Private Shared rnd As Random 
  Shared Sub New()
      rnd = New Random() 
  End Sub

  Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare 
      If Object.Equals(x, y) Then
          Return 0 
      Else
          Return rnd.Next(-1, 1) 
      End If
  End Function 
End Class
 

' Et pour l'utiliser :
Dim Toto() As Integer = {1, 2, 5, 9, 10, 5, 3}
Array.Sort(Toto, New Melangeur())

private static readonly Random _shuffleRnd = new Random(); // nécessaire pour la méthode ShuffleArray
public static void ShuffleArray(object[] array) 
{ 
    int arrayLength = array.Length; 
    // parcours de la liste en partant de la fin


    for (int i = arrayLength - 1; i > 1; --i) 
    {
        // tirage au sort d'un index entre 0 et la valeur courante de "i"
        int randomIndex = _shuffleRnd.Next(i); 
        // intervertion des éléments situés aux index "i" et "randomIndex"
        object temp = array[i]; 
        array[i] = array[randomIndex];
        array[randomIndex] = temp;
    }
}

import random
listeAMelanger = range(50)
random.shuffle(liste)

//-------------------------------
// entree : le tableau a randommer
// sortie : le tableau randomme
//-------------------------------
function Rand_Tableau( tab_){
  var i;
  var Num;
  var Nbr = tab_.length;
  var Tab = tab_;
  //-- Lance la boucle
  while( Nbr> 0){
    //-- Recup nombre aleatoire
    Num = Math.floor(Math.random() * Nbr);
    //-- 1 de moins a traiter
    Nbr--;
    //-- Stock element tire
    szTmp = Tab[Num];
    //-- Decalage des valeurs du tableau
    for( i= Num; i < Nbr; i++)
      Tab[i] = Tab[i+1]
    //-- Stock l'element tire en fin
    Tab[ Nbr] = szTmp;
  }
  //-- On peut remettre dans l'ordre du tirage
  Tab.reverse();
  //-- Retourne resultat
  return( Tab);
}
EXEMPLE d'appel

  //-- Random du tableau
  Tab = Rand_Tableau( Tab);

Function Shuffle(ByRef atData() As String)
' nécessite la fonction GetSingleValue
'  http://www.codyx.org/snippet_recuperer-aleatoirement-valeur-unique-tableau_348.aspx#1098
    Randomize Timer
    
    Dim atRet() As String, i As Integer, s As String
    ReDim atRet(LBound(atData) To UBound(atData))
    
    For i = LBound(atRet) To UBound(atRet)
        GetSingleValue atData, s
        atRet(i) = s
    Next i
    
    atData = atRet
    Shuffle = atRet
    Erase atRet
End Function