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