[Résolu]mélanger ensembles de cellules dans colonne d'un tableau

Sub Essai()
Dim TE(1 To 26), TN() As Long, TS(1 To 26), N As Long, P As Long
For N = 1 To 26: TE(N) = Chr$(N + 64): Next N
Randomize
OrdreAléat TN, 26 ' Dimensionne et garnit TN de numéros de 1 à 26 en ordre aléatoire.
For N = 1 To 26: P = TN(N): TS(N) = TE(P): Next N
MsgBox Join(TE, ", ") & vbLf & Join(TS, ", ")
End Sub

Sub OrdreAléat(TN() As Long, ByVal Nombre As Long)
Dim P As Long, A As Long, J As Long
ReDim TN(1 To Nombre): For P = 1 To Nombre: TN(P) = P: Next P
Randomize
For P = Nombre To 2 Step -1
   A = Int(Rnd * P) + 1: J = TN(A): TN(A) = TN(P): TN(P) = J
   Next P
End Sub

Sub Bouton12_Cliquer()
Randomize
DéclasserLignesPlage ActiveSheet.[B3:C3].Resize(ActiveSheet.[B1000000].End(xlUp).Row - 2)
DéclasserLignesPlage ActiveSheet.[I3:J3].Resize(ActiveSheet.[I1000000].End(xlUp).Row - 2)
End Sub

Sub DéclasserLignesPlage(ByVal Rng As Range)
Dim TE(), LE As Long, TN() As Long, TS(), LS As Long, C As Long
TE = Rng.Value
ReDim TS(1 To UBound(TE, 1), 1 To UBound(TE, 2))
OrdreAléat TN, UBound(TE, 1)
For LE = 1 To UBound(TE, 1)
   LS = TN(LE)
   For C = 1 To UBound(TE, 2)
      TS(LS, C) = TE(LE, C)
      Next C, LE
Rng.Value = TS
End Sub

Sub OrdreAléat(TN() As Long, ByVal Nombre As Long)
Dim P As Long, A As Long, J As Long
ReDim TN(1 To Nombre): For P = 1 To Nombre: TN(P) = P: Next P
Randomize
For P = Nombre To 2 Step -1
   A = Int(Rnd * P) + 1: J = TN(A): TN(A) = TN(P): TN(P) = J
   Next P
End Sub