Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target <> "Tirage" Then Exit Sub
Dim tablo
Cancel = True
Application.ScreenUpdating = False
With Range(Target(2, 0), Cells(Rows.Count, Target.Column - 1).End(xlUp))
tablo = .Value
.Formula = "=RAND()"
.Columns(2) = tablo
.Resize(, 2).Sort .Cells, Header:=xlNo 'tri
.Value = tablo
End With
End Sub