Listview format colonne

Bonjour à tous,

Je tente d'appliquer un format à la 8eme et 9eme colonne.... sans succès

voici le code qui alimente la Listview

j'aimerais appliquer le format ( "$#,##0.00" ) aux colonnes 8 et 9

j'ai besoin d'aide, je ni arrive pas

' TAB Finance
            With UF_Principal.LV_Finance
            .Top = 0
            .Left = 0
            .Height = 300
            .Width = 1106.4
                With .ColumnHeaders
                     ' Vider le listview
                     .Clear

                     'Ajouter les colonnes
                     .Add , , "NoDOSSIER", 50
                     .Add , , "ITEM", 55
                     .Add , , "FABRICANT", 90
                     .Add , , "MODELE", 80
                     .Add , , "DATE", 60, lvwColumnCenter
                     .Add , , "NoFACTURE", 60
                     .Add , , "VENDEUR", 140
                     .Add , , "PrixDEMANDÉ", 60, lvwColumnRight
                     .Add , , "PrixPAYÉ", 60, lvwColumnRight
                     .Add , , "NoGL", 40, lvwColumnCenter
                     .Add , , "NOTE", 400
                End With

                .View = 3                   ' type Report
                .Gridlines = True           ' affichage de lignes
                .FullRowSelect = False       ' sélection complète de la ligne
                .HideColumnHeaders = False  ' afficher les en-têtes de colonnes
                .LabelEdit = 1              ' ne pas autoriser la saisie
            End With

            With Worksheets("FINANCES")
                derl = .Range("A65536").End(xlUp).Row
                Tbl = .Range("A2:L" & derl)
            End With

            With LV_Finance
                For L = 1 To UBound(Tbl, 1)
                    .ListItems.Add , , Tbl(L, 1)
                    For c = 2 To UBound(Tbl, 2)
                        .ListItems(.ListItems.Count).ListSubItems.Add , , Tbl(L, c)
                    Next c
                Next L

            End With

Trouvé :-)

Pour le bénéfice des autres.... voici la solution trouvé...

With LV_Finance
                For L = 1 To UBound(Tbl, 1)
                    .ListItems.Add , , Tbl(L, 1)
                    For c = 2 To UBound(Tbl, 2)
                        If c < 8 Then
                            .ListItems(.ListItems.Count).ListSubItems.Add , , Tbl(L, c)
                        ElseIf c > 8 Then
                            .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Tbl(L, c), "$#,##0.00")
                        ElseIf c > 9 Then
                            .ListItems(.ListItems.Count).ListSubItems.Add , , Tbl(L, c)
                        End If
                    Next c
                Next L
End With