Sub AleatoireTaT()
Dim plage As Range, cel As Range
Dim Alea As Double
Dim Dl2 As Integer

Application.ScreenUpdating = False

With Worksheets("Concours")
        
    Dl2 = .Cells(Rows.Count, AleTri).End(xlUp).Row
            
    Set plage = .Range(.Cells(1, 33), .Cells(Dl2, 33))
    plage.Value = ""
            
    If plage.Count > Dl2 Then Exit Sub
    Randomize
            
    For Each cel In plage
1       Alea = WorksheetFunction.RandBetween(1, Dl2)
        If Application.CountIf(plage, Alea) Then GoTo 1 Else cel = Alea
    Next cel
            
End With

Application.ScreenUpdating = True
End Sub

Sub LeTriTat()
Dim Dl2 As Integer  ' derniere ligne

Application.ScreenUpdating = False

With Worksheets("Concours")
        
''''Dl = .Cells(Rows.Count, "A").End(xlUp).Row
    Dl2 = .Cells(Rows.Count, 32).End(xlUp).Row

    With .Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("AG1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range(Cells(1, AleTri), Cells(Dl2, "AG"))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        
    End With
        
    .Cells(.Range("Dl_" & Partie - 1).Value + 3, "V").Select
  
End With
Application.ScreenUpdating = True
End Sub