ListView et heure

[CODE]Private Sub UserForm_Initialize()
Call Initlistviewent
Call Initlistview1
If trouve = 0 Then
    Call MsgBox("Aucune occurence trouvée", vbInformation, Application.Name)
    CommandButton3_Click
    
Else
    CommandButton6.Visible = True
    ListView1.ListItems(1).Selected = False ' on désélectionne la première ligne
    Set ListView1.SelectedItem = Nothing
End If
End Sub

Private Sub Initlistviewent()
' à modifier
'#Const avectitre = 1 ' constante = 1 si affichage du nom des feuilles 0 si pas d'affichage
'
Dim correctif As Byte
If LBound(dimcol) = 0 Then correctif = 1
nbcollist = 0
nuitem = 0
With ListView1
    .ListItems.Clear
    With .ColumnHeaders
        .Clear
'#If avectitre = 1 Then
    .Add , , "Nom de la feuille", 80
'#End If
        For Each ws In Worksheets
            suite = 0
        For i1 = LBound(nomfeuille4) To UBound(nomfeuille4)
            If ws.Name = nomfeuille4(i1) Then suite = 1
        Next i1
        If suite = 0 Then
                For i = 1 To nbmaxcol
                        .Add , , Sheets(ws.Name).Cells(nulititre, i), dimcol(i - correctif)
                Next i
                        .Add , , "tridate", 0
            Exit For
        End If
        Next ws
    End With
End With
End Sub

.Add , , Sheets(ws.Name).Cells(nulititre, i), dimcol(i - correctif).Text

 ' .Add , , Format(Sheets(ws.Name).Cells(nulititre, i), dimcol(i - correctif), "hh:mm:ss")