Format dans une ListView

Bonsoir,

Dans une ListView que je remplie de la sorte
(partie du code qui fonctionne bien)
-
For Each c In Range("A2:A" & [A65000].End(xlUp).Row)
.ListItems.Add , , c
.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 1)
.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 2)
.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 3)
.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 4)
Ligne = Ligne + 1
Next c

j'essaie en vain de mettre un format sur la colonne 4 comme cela:
plus divers essais tous infructueux.

.ListItems(Ligne).ListSubItems.Add , , c.Offset(, 4) = Format(Time,
"hh:mm:ss")

Mais j'obtiens comme résultat des "0" dans la colonne

Je pense que mon "Format" est mal placé, mais ou et comment le placer ?

Merci