Tri aleatoire

Sub Essai1()
    Application.ScreenUpdating = False
    Cells(1).CurrentRegion.Clear
    ReDim a(1 To 4)
    For i = 1 To 5
        For j = 1 To 4
            a(j) = j
        Next j
        For j = 1 To 4
            k = Int((4 - j + 1) * Rnd() + j)
            x = a(j)
            a(j) = a(k)
            a(k) = x
            Cells(j + 1, i).Value = a(j)
        Next j
    Next
    Cells(1).Resize(, 5) = [{"Lundi","Mardi","Mercredi","Jeudi","Vendredi"}]
    With Cells(1).CurrentRegion
        .Rows(1).BorderAround ColorIndex:=1, Weight:=xlThin
        .Rows(1).Interior.ColorIndex = 44
        .BorderAround ColorIndex:=1, Weight:=xlThin
        .Borders(xlInsideVertical).Weight = xlThin
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Application.ScreenUpdating = True
End Sub

Function Mélanger(Plage As Range, Optional transposer As Boolean = False)
Dim Dico As Object, Tablo(), i As Long

Set Dico = CreateObject("scripting.dictionary")
Tablo = Plage
Randomize
Do
  i = Int((Plage.Count * Rnd) + 1)
  If Not Dico.exists(Tablo(i, 1)) Then Dico(Tablo(i, 1)) = ""
Loop Until Dico.Count = Plage.Count
If transposer Then
  Mélanger = Application.Transpose(Dico.keys)
Else
  Mélanger = Dico.keys
End If
End Function

Sub remplace()
    Dim r As Range
    For Each r In Sheets("Feuil1").Range("H1").CurrentRegion.Columns(1).Cells
        Sheets("Feuil1").Range("A1").CurrentRegion.Replace r.Value, r(, 2).Value, 1
    Next
End Sub

Sub remplace1()
    tablo1 = Array(1, 2, 3, 4)
    tablo2 = Array("Vincent", "Claire", "Sandra", "Paul")
    Set Rng = Sheets("Feuil1").Range("A1").CurrentRegion
    For i = 0 To 3
        Rng.Replace tablo1(i), tablo2(i), 1
    Next
End Sub