For x = 1 To .ListItems.Count
Set LstViTem = .ListItems(x)
With LstViTem
If .ListSubItems(8).Text <> "" Then
.ForeColor = IIf(.ListSubItems(7) = "date expirée", vbRed, vbGreen)
For k = 1 To 9
.ListSubItems(k).ForeColor = .ForeColor
Next k
End If
End With
Next x