Couleur subitem listview

Bonjour,

Je travail sur une listview, et j'ai besoin de mettre en évidence certaines lignes. Pour cela je souhaite les colorier et les passer en gras. Seulement mon code ne modifie que la première colonne et pas les SubItems. J'ai beau chercher sur différents forums et tuto je ne trouve pas la solution.

Voici les 2 codes que j'ai essayé (aucun ne marche correctement) :

Code 1

Code:

1
2
3
4
5
6
7
8
9
10
        With maListe.ListItems(intNumLigne)
            .ForeColor = &HFF0000
            .Bold = True
            For i = 1 To 7
                With .ListSubItems(i)
                    .Bold = True
                    .ForeColor = &HFF0000
                End With
            Next i
        End With

Code 2

Code:

1
2
3
4
5
6
7
8
9
10
        With maListe.ListItems(intNumLigne)
            .ForeColor = &HFF0000
            .Bold = True
            For i = 1 To 7
                With .ListSubItems.Item(i)
                    .Bold = True
                    .ForeColor = &HFF0000
                End With
            Next i
        End With

Quelqu'un sait il où est le problème et comment je peux le résoudre ?