probleme d'affichage listView

Private Sub UserForm_Initialize()
  
   Dim k As Integer, i As Long
    
    With ListView1
        With .ColumnHeaders
            .Clear
            .Add , , "DATE", 60
            .Add , , "N°Ecriture", 70, lvwColumnRight
            .Add , , "N°Identification", 70, lvwColumnRight
            .Add , , "Noms", 70, lvwColumnRight
            .Add , , "Prenoms", 70, lvwColumnRight
            .Add , , "N°Compte", 70, lvwColumnRight
            .Add , , "Periode", 70, lvwColumnRight
            .Add , , "Montant", 70, lvwColumnRight
        End With
    
        .View = lvwReport
        .Gridlines = True
        .FullRowSelect = True
        
        For i = 2 To Sheets("BD").Range("A65536").End(xlUp).Row
             .ListItems.Add , , Sheets("BD").Cells(i, 1)
                  For k = 2 To 7
                       .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BD").Cells(i, k)
                  Next
             .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("BD").Cells(i, 8), "# ##0.00")
        Next
    End With
End Sub


Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   Dim i As Integer, j As Integer
   
    ListView1.Sorted = False
    ListView1.SortKey = 0
   
    For i = 1 To ListView1.ListItems.Count
        ListView1.ListItems(i).Text = CDec(CDate(ListView1.ListItems(i).Text))
    Next i
   
    If ListView1.SortOrder = lvwAscending Then
        ListView1.SortOrder = lvwDescending
    Else
        ListView1.SortOrder = lvwAscending
    End If
    
    ListView1.Sorted = True
    
    For i = 1 To ListView1.ListItems.Count
        ListView1.ListItems(i).Text = Format(CDate(ListView1.ListItems(i).Text), "dd/mm/yyyy")
    Next i
          
End Sub