J'ai essayé ça mais ça ne marche pas, message erreur "index hors limites"
Je vous remercie.

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
With Me.Lv
.ListItems.Clear
For Each C In Worksheets("Assurances").Range("D4:D19")
 
X = X + 1
i = 15
    .ListItems.Add , "toto", C
    .ListItems(X).ForeColor = C.Font.Color
For i = 15 To 30
For j = 1 To 45
            .ListItems(X).ListSubItems.Add , , C.Offset(0, j)
If C.Offset(0, j) = 0 Then .ListItems(X).ListSubItems(j).ForeColor = RGB(255, 0, 0)
If C.Offset(0, j) < 0 Then .ListItems(X).ListSubItems(j).Bold = False
Next j
    Me.Controls("TextBox" & i) = Lv.ListItems(X).ListSubItems(j).text
Next i
Next C
End With