Triage Croissant sur array 2d

Call Tri(a_DIY_Liquide(), 1, LBound(a_DIY_Liquide, 1), UBound(a_DIY_Liquide, 1))

Sub Tri(a_DIY_Liquide(), ColTri, gauc, droi) ' Quick sort
'MsgBox "gauc " & gauc
'MsgBox "droi " & droi
'MsgBox "colTri " & ColTri

  ref = a_DIY_Liquide((gauc + droi) \ 2, ColTri)
  MsgBox "ref   " & a_DIY_Liquide((gauc + droi) \ 2, ColTri)
  g = gauc: d = droi
  Do
    Do While a_DIY_Liquide(g, ColTri) < ref: g = g + 1: Loop
    Do While ref < a_DIY_Liquide(d, ColTri): d = d - 1: Loop
    If g <= d Then
       For k = LBound(a_DIY_Liquide, 2) To UBound(a_DIY_Liquide, 2)
         temp = a_DIY_Liquide(g, k): a_DIY_Liquide(g, k) = a_DIY_Liquide(d, k): a_DIY_Liquide(d, k) = temp
         Debug.Print temp
       Next k
       g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Call Tri(a_DIY_Liquide, ColTri, g, droi)
  If gauc < d Then Call Tri(a_DIY_Liquide, ColTri, gauc, d)

End Sub

Sub Remplir_ComboBox()
Dim tablo, i&, x$, a$(), n&
tablo = [Tab_Liquide].Resize(, 2) 'matrice, plus rapide
For i = 1 To UBound(tablo)
    x = tablo(i, 2) 'nom
    If x <> "" Then
        ReDim Preserve a(n) 'base 0
        a(n) = x
        n = n + 1
    End If
Next
If n Then tri a, 0, UBound(a): CB_Liste_EL.List = a Else CB_Liste_EL.Clear
End Sub

Sub tri(a, gauc, droi) ' Quick sort
Dim ref, g, d, temp
ref = a((gauc + droi) \ 2)
g = gauc: d = droi
Do
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < a(d): d = d - 1: Loop
    If g <= d Then
      temp = a(g): a(g) = a(d): a(d) = temp
      g = g + 1: d = d - 1
    End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub

Option Compare Text
Private Sub UserForm_Initialize()
  Me.enreg = [client].Rows.Count + 1
  Me.Id = Application.Max([client[id]]) + 1
  Tbl = [client].Value
  Tri Tbl, LBound(Tbl), UBound(Tbl), 2
  Me.Recherche.List = Tbl
End Sub

Sub Tri(a, gauc, droi, colTri) ' Quick sort
  ref = a((gauc + droi) \ 2, colTri)
  g = gauc: d = droi
  Do
    Do While a(g, colTri) < ref: g = g + 1: Loop
    Do While ref < a(d, colTri): d = d - 1: Loop
    If g <= d Then
       For c = LBound(a, 2) To UBound(a, 2)
          temp = a(g, c): a(g, c) = a(d, c): a(d, c) = temp
       Next
       g = g + 1: d = d - 1
     End If
   Loop While g <= d
   If g < droi Then Call Tri(a, g, droi, colTri)
   If gauc < d Then Call Tri(a, gauc, d, colTri)
End Sub