With ListView1
For i = 2 To derlig
.ListItems.Add , , Feuil1.Cells(i, 1)
For j = 2 To 14
Select Case j
Case 10 To 14: .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Feuil1.Cells(i, j), "#,##0.00")
Case 2 To 9: .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(i, j)
End Select
Next j
Next i
End With