Bonjour,
Sub RépartTaches()
Dim LT, t, n%, i%, x%, ch0$, cht$
With Worksheets("Sheet1")
n = .Cells(.Rows.Count, 2).End(xlUp).Row
LT = .Range("B2:B" & n).Value
End With
n = n - 1
For i = 1 To n
ch0 = ch0 & Chr(i + 32)
Next i
Randomize
For i = 1 To n
x = Int(Len(ch0) * Rnd + 1)
t = Mid(ch0, x, 1): cht = cht & t
ch0 = Replace(ch0, t, "")
Next i
For i = 1 To n
x = Asc(Mid(cht, i, 1)) - 32
t = LT(x, 1): LT(x, 1) = LT(i, 1): LT(i, 1) = t
Next i
Worksheets("Sheet1").Range("B2:B" & n + 1).Value = LT
End Sub
Cordialement.