XL 2010 Tri ListView

'on simule un Click sur l’entête de la  Colonne 1(0) de la LisView1 pour tri .
Set ColumnHeader = .ColumnHeaders([B]1[/B]) 'Ici on affecte la Colonne qui va être triée
       Userform1.ListView1_ColumnClick (ColumnHeader)

Public Sub ListView1_ColumnClick (ByVal ColumnHeader As MSComctlLib.ColumnHeader)
  Dim i As Integer, j As Integer
  Dim Idx As Byte
  Dim LstVItem As MSComctlLib.ListItem
  Dim LstVsItem As MSComctlLib.ListSubItem
‘Permet dans ce cas de figure le tri de valeurs  entières  de 0 à 99000 (pourrait être adaptée) Lol
‘Ou De  Dates , ou  de  Prix si inférieur ou égaux a 99000
  Idx = ColumnHeader.Index - 1 'On récupère l'index de la Colonne sélectionnée
With Userform1
  With ListView1
  .Sorted = False
  .SortKey = Idx
If Idx = 0 Or Idx = 3 Or Idx = 6 Then
  'Boucle sur toutes les lignes
  For i = 1 To .ListItems.Count 'Pour Chaque ligne de la ListView
  Set LstVItem = .ListItems(i) 'On récupère la Ligne par sa première Colonne (0)
  'Passage des données au format "00000"
  With LstVItem 'avec cette Cellule
  If Idx = 0 Then 'si le tri se fait sur la première colonne (0)
   .Tag = CStr(.Text) 'On récupère la valeur dans le Tag de la Cellule
   .Text = Format (.Text, "00000") 'on formate la valeur de la cellule
  ElseIf Idx = 3 Or Idx = 6 Then 'si le tri se fait sur les colonnes ( 3 ou 6)
  Set LstVsItem = .ListSubItems(Idx) 'On récupère la cellule "3 ou 6" de la Ligne
  With LstVsItem 'avec cette cellule
  .Tag = CStr(.Text) 'On récupère la valeur dans le « .Tag » de la Cellule
  .Text = Format (.Text, "00000") 'on formate la valeur de la cellule
  End With
  End If
  End With
  Next i
  End If
  ' -----  Application du tri -----------
  If .SortOrder = lvwAscending Then
  .SortOrder = lvwDescending
  Else
  .SortOrder = lvwAscending
  End If
  .Sorted = True
  '--------------------------------------
  'Boucle sur toutes les lignes
  For i = 1 To .ListItems.Count  'Pour Chaque ligne de la ListView
  Set LstVItem = .ListItems(i) 'On récupère la Ligne par sa première Colonne (0)
  'Passage des données au format initial
   With LstVItem 'avec cette cellule
  If Idx = 0 Then 'si le tri se fait sur la première colonne (0)
   .Text = .Tag 'On récupère le valeur initiale
  ElseIf Idx = 3 Or Idx = 6 Then 'si le tri se fait sur les colonnes ( 3 ou 6)
   Set LstVsItem = .ListSubItems(Idx) 'On récupère la cellule "3 ou 6" de la Ligne
   With LstVsItem 'avec cette cellule
   .Text = .Tag 'On récupère la valeur initiale depuis la propriété « .Tag »
   End With
  End If