Modifier un code d'une listview

Bonjour,

Je souhaites ajouter un élément sur un code de JP14. Actuellement j'ai un commande bouton qui prend les élements d'une listview (dont la colonne 12 est = "NF" ) et les colles sur la feuille facture. Je désirs en plus une formule qui enleve les 0 de la colonne 9. J'ai essayé le code en rouge mais je dois avoir un probleme...


Dim dl2 As Long ' dernière ligne
With ListView1
'Boucle sur toutes les lignes
dl2 = 16
For I = 1 To .ListItems.Count
If .ListItems(I).ListSubItems(12).Text = "NF" And .ListItems(I).ListSubItems(9).Text > "0,1" Then
Sheets("Factures").Cells(dl2, 27) = .ListItems(I).Text
'Boucle sur les colonnes
For j = 1 To .ColumnHeaders.Count - 1
Sheets("Factures").Cells(dl2, j + 27) = .ListItems(I).ListSubItems(j).Text
Next j
dl2 = dl2 + 1
End If
Next I

End With

Si vous avez une piste...

cordialement
lanoe