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