mélanger aléatoirement des résultat

Sub Mélanger()
    Dim lig As Long, col As Long, lig2 As Long, col2 As Long
    Dim tmp As String, t As Double
    Dim statusBarInitial
    statusBarInitial = Application.DisplayStatusBar
    Application.DisplayStatusBar = True
    
    t = Timer
    Randomize Timer
    Application.ScreenUpdating = False
    For col = 1 To 252
        For lig = 1 To 7567
            lig2 = Int(Rnd() * 7567 + 1)
            col2 = Int(Rnd() * 252 + 1)
            tmp = Cells(lig, col)
            Cells(lig, col) = Cells(lig2, col2)
            Cells(lig2, col2) = tmp
        Next lig
        Application.ScreenUpdating = True
        Application.ScreenUpdating = False
        Application.StatusBar = "Avancement : " & Format(((col - 1) * 7567) / 1906884, "0%")
        DoEvents
    Next col
    Application.ScreenUpdating = True
    Application.StatusBar = ""
    Application.DisplayStatusBar = statusBarInitial
    MsgBox ("Mélangé en " & Int(Timer - t) & " secondes.")
End Sub