#include-once

Func _OrdreHasard($tailleTable)
	Local $a_ordre [$tailleTable], $random
	
	For $i_element = 1 To $tailleTable
		Do
			$random = Random(1, $tailleTable, 1)
		Until $a_ordre [$random - 1] = ""
		$a_ordre [$random - 1] = $i_element
	Next
	
	Return $a_ordre
EndFunc


Func _MelangeTable($table_a_melanger)
	Local $tailleTable = UBound($table_a_melanger), $a_return [$tailleTable], $a_ordre, $caseTableau
	
	$a_ordre = _OrdreHasard($tailleTable) ; On crée un ordre au hasard
	For $caseTableau = 1 To $tailleTable
		$a_return [$caseTableau - 1] = $table_a_melanger [$a_ordre [$caseTableau - 1] - 1] ; On remplace chaque nombre contenu dans $a_ordre par la valeur correspondante de la table à mélanger
	Next ; On recommence pour chaque valeur de la table à mélanger
	
	Return $a_return
EndFunc