Bonjour,
voici les codes que MDF ma donné hier pour mettre ce format et j'ai réussi à les faire fonctionnés.
Label5.Caption = Format(Sheets('Feuil1').Range('a1').Value, 'hh:nn: ss')
OU
Label5.Caption = Format(ActiveCell.Offset(0, 1).Value, 'hh:nn: ss')
Bonne réception
Bruno