Public Function MelangeMoiLaCellule(Chaine$) As String ' inspiré de J.Walkenbach
Dim i%, j%, k%, sChr As String * 1
i = Len(Chaine)
For j = 1 To i
sChr = Mid(Chaine, j, 1)
k = Int((i - 1 + 1) * Rnd + 1)
Mid(Chaine, j, 1) = Mid(Chaine, k, 1)
Mid(Chaine, k, 1) = sChr
Next j
MelangeMoiLaCellule = Chaine
End Function