Private Sub ComboBox1_Change()
Label5.Caption = Format(Sheets('Feuil1').Range('a1').Value, 'hh:nn: ss')
If ComboBox1 = '' Then
MsgBox ' Vide !'
Else
Cells.Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
TextBox2 = ActiveCell.Offset(0, 2)
Label5.Caption = Format(ActiveCell.Offset(0, 1).Value, 'hh:nn: ss')
End If
End Sub