[COLOR="DarkSlateGray"][B]Function OdreBizarreCroissant(r As Range)
Dim i&, j&, tmp, oDat()
oDat = r.Value
For i = LBound(oDat) To UBound(oDat) - 1
tmp = oDat(i, 1)
For j = i To UBound(oDat)
If Abs(oDat(j, 1)) < Abs(tmp) Then tmp = oDat(j, 1): oDat(j, 1) = oDat(i, 1): oDat(i, 1) = tmp
Next j
Next i
OdreBizarreCroissant = oDat
End Function
Function OdreBizarreDécroissant(r As Range)
Dim i&, j&, tmp, oDat()
oDat = r.Value
For i = LBound(oDat) To UBound(oDat) - 1
tmp = oDat(i, 1)
For j = i To UBound(oDat)
If Abs(oDat(j, 1)) > Abs(tmp) Then tmp = oDat(j, 1): oDat(j, 1) = oDat(i, 1): oDat(i, 1) = tmp
Next j
Next i
OdreBizarreDécroissant = oDat
End Function[/B][/COLOR]