XL 2013 [Résolu] Macro que je n'arrive pas a modifier pour un tri aléatoire

Sub aleatoire()
'
' aleatoire Macro
'

'
    Range("B3:G42").Select
    ActiveSheet.Unprotect
    ActiveWorkbook.Worksheets("Joueurs").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Joueurs").Sort.SortFields.Add Key:=Range("C3:C42") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Joueurs").Sort.SortFields.Add Key:=Range("G3:G42") _' colonne rajoutée avec =alea() dans les cellules
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Joueurs").Sort.SortFields.Add Key:=Range("B3:B42") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Joueurs").Sort.SortFields.Add Key:=Range("D3:D42") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Joueurs").Sort
        .SetRange Range("B3:G42")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub