Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim k!, n%, Nb%, S$
Randomize
n = 30000 'maximum : 32735
For Nb = 1 To n
S = S & ChrW(32 + Nb)
Next
Do
Nb = Int(Rnd * Len(S) + 1)
k = k + 1
Cells(k, 1) = AscW(Mid(S, Nb, 1)) - 32
S = Left$(S, Nb - 1) & Mid$(S, Nb + 1)
Loop Until S = ""
End Sub