//Soit 5 variables qui possèdent des valeurs differantes :
var a:uint=1;
var b:uint=2;
var c:uint=3;
var d:uint=4;
var e:uint=5;
//l'attribution d'une des 5 valeurs avec la même probabilité d'être selectionné dans une variables f en 1 ligne se fait comme cela :
var f:uint = Math.floor(Math.random()*5)<1)?a():((Math.random()<0.5)?((Math.random()<0.5)?b:c):((Math.random()<0.5)?d:e));
//pourquoi avoir choisi entre 5 valeurs ? Car c'est un nombre impaire, en effet faire une selection entre x valeurs, x nombre pair est beaucoup plus simple (utilisation de multitudes de ? à la suite)
//Sur le même modèle vous pouvez choisir une valeurs entre 7, 9, 11, etc... valeur...
//pour l'info, pour choisir entre 4 valeurs a, b, c, d dans une variable e :
e=(Math.random()>0.5)?((Math.random()>0.5)?a:b):((Math.random()>0.5)?c:d)
    

VariantValue = VBA.Interaction.Choose(Int((5  * Rnd) + 1),  1, 2, 3, 4, 5)

Public Function Choose(Of T)(ByVal ParamArray Values() As T) As T
  Return Choose(Of T)(New System.Random().Next(0, Values.Length - 1), Values)
End Function
Public Function Choose(Of T)(ByVal Index As Integer, ByVal ParamArray Values() As T) As T
  Return Values(Index)
End Function

' Exemple d'utilisation :
Dim a1 As String = Choose(Of String)(2, "a", "b", "c", "d") ' a1 = "c"
Dim a2 As String = Choose(Of String)("a", "b", "c", "d") ' a2 = "a", "b", "c" ou "d"
Dim b1 As Integer = Choose(Of Integer)(1, 2, 3, 4) ' b1 = 3
Dim b2 As Integer = Choose(Of Integer)(New Integer() {1, 2, 3, 4}) ' b2 = 1, 2, 3 ou 4
' Provoque une des 4 exceptions
Throw Choose(Of System.Exception)(New System.IO.FileNotFoundException(), _
                                  New System.Runtime.InteropServices.SEHException(), _
                                  New System.Security.SecurityException(), _
                                  New System.Exception("moa"))

static T Choose<T>(params T[] Values) {
  return Choose<T>(new System.Random().Next(0, Values.Length - 1), Values);
}
static T Choose<T>(int Index, params T[] Values) {
  return Values[Index];
}

// Exemple d'utilisation :
string a1 = Choose<string>(2, "a", "b", "c", "d"); // a1 = "c"
string a2 = Choose<string>("a", "b", "c", "d"); // a2 = "a", "b", "c" ou "d"
int b1 = Choose<int>(1, 2, 3, 4); // b1 = 3
int b2 = Choose<int>(new int[] { 1, 2, 3, 4 }); // b2 = 1, 2, 3 ou 4
// Provoque une des 4 exceptions
throw Choose<System.Exception>(new System.IO.FileNotFoundException(),
                               new System.Runtime.InteropServices.SEHException(),
                               new System.Security.SecurityException(),
                               new System.Exception("moa"));