Bonjour à tous

Une question qui a l'air banal... Mais je me creuse la tête dessus depuis ce matin.

Je travaille dans une ListView et j'arrive (grâce à l'aide de Daniel et Franck ) à changer la couleur de ma police via tableaux.

Le souci est que ça fonctionne pour toutes mes colonnes sauf la première.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Dim Tbl As Range, D As Range
Dim LN(19, 37)
Dim Couleurs(19, 37)
Dim L As Integer, c As Integer
 
With Worksheets("Septembre")
    Set Tbl = .Range("B2:AF21")
    For Each D In Tbl
        Couleurs(D.Row - 2, D.Column - 2) = D.Font.Color
        LN(D.Row - 2, D.Column - 2) = D.Value
    Next D
End With
 
With ListView9
    .ListItems.Clear
    For L = 0 To UBound(LN, 1)
        .ListItems.Add , , LN(L, 0)
        For c = 1 To UBound(LN, 2)
            .ListItems(.ListItems.Count).ListSubItems.Add , , LN(L, c)
            .ListItems(L + 1).ListSubItems(c).ForeColor = Couleurs(L, c)
        Next
    Next
End With
Merci d'avance