For j = 1 To .ColumnHeaders.Count - 1
Sheets("Factures").Cells(dl2, j + 27) = .ListItems(I).ListSubItems(j).Text
[I] If[COLOR=red] j = 8[/COLOR] Then[/I]
[I] Sheets("Factures").Cells(dl2, j + 27) = IIf(Sheets("Factures").Cells(dl2, j + 27) = [COLOR=red]0[/COLOR], "", Sheets("Factures").Cells(dl2, j + 27))[/I]
[I] End If[/I]
Next j