Tri ListView

            .Add , , "Date Paie", 60, 2
            .Add , , "Paiement", 60, 2
            [COLOR="Red"].Add , , "tri", 0[/COLOR]

            ListView1.ListItems(LigList).ListSubItems.Add , "I" & Lig, Format(wsFactures.Range("I" & Lig).Value, "0.00 €")  'Montant Payés
            [COLOR="Red"]ListView1.ListItems(LigList).ListSubItems.Add , , ""[/COLOR]

'-------------------------------------------------------------------------------------
' Module    : usfAffichage/ListView1_ColumnClick
' Utilisation     :trier les listes en cliquant sur une colonne en tenant compte des dates
' il faut reserver la dernière colonne
'-------------------------------------------------------------------------------------
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim date1 As Date
Dim i As Integer
    'pas de tri sur les colonnes avec dates
With ListView1
    If ColumnHeader.Index = 3 Or ColumnHeader.Index = 4 Or ColumnHeader.Index = 5 Or ColumnHeader.Index = 6 Then
        For i = 1 To ListView1.ListItems.Count
            If IsDate(.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text) Then
                date1 = CDate(.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text)
                .ListItems(i).ListSubItems(.ColumnHeaders.Count - 1).Text = CLng(date1)
            Else
                .ListItems(i).ListSubItems(.ColumnHeaders.Count - 1).Text = ""
            End If
        Next i
        Call tierliste(1, .ColumnHeaders.Count - 1 - 1)
    Else
        Call tierliste(1, ColumnHeader.Index - 1)
    End If
End With
End Sub
'-------------------------------------------------------------------------------------
' Module    : usfAffichage/tierliste
' Utilisation     :trier
'call tierliste ( numéro de la listeview,ColumnHeader.Index - 1)
'-------------------------------------------------------------------------------------
Private Sub tierliste(£nu As Integer, £colonne As Integer)
 With Me.Controls("Listview" & £nu)
    .Sorted = False
    .SortKey = £colonne
    If .SortOrder = lvwAscending Then
        .SortOrder = lvwDescending
    Else
        .SortOrder = lvwAscending
    End If
    .Sorted = True
 End With
End Sub