Label en heure

bonjour j'ai un petit soucis d'appréciation.

Private Sub UserForm_Initialize()
Dim titre$
titre = Cells(ActiveCell.Row - 1, 1).Value & vbCrLf & "à" & vbCrLf & Cells(ActiveCell.Row, 1).Value
L1.Caption = titre
End Sub

je n'arrive pas a afficher les heures sur mon label.

Quelqu'un peut m’aiguiller?

Bien cordialement

Bonjour,

à tester,

titre = Format(Cells(ActiveCell.Row - 1, 1).Value, "hh:mm") & vbCrLf & "à" & vbCrLf & Format(Cells(ActiveCell.Row, 1).Value, "hh:mm")

Bonjour,

Obvious !

Merci