Mélange de caractères aléatoires de 2 cells

Function mixage(Plg As Range)
Dim Cel As Range
Dim Tmp As String
Dim It
Dim Num As Integer
Dim LesCaractères As Object
Set LesCaractères = CreateObject("Scripting.Dictionary")
For Each Cel In Plg
    Tmp = Tmp & Replace(Cel, " ", "")
Next Cel
Do While LesCaractères.Count < Len(Tmp)
    Randomize (Timer)
    Num = Int(Len(Tmp) * Rnd + 1)
    If Not LesCaractères.Exists(Num) Then
        LesCaractères.Add Num, Num
    End If
Loop
For Each It In LesCaractères.Items
    mixage = mixage & Mid(Tmp, It, 1) & " "
Next It
mixage = RTrim(mixage)
End Function

=mixage(A1:C1)