Private Sub ComboBox1_Change()
Set C = Sheets("FJT").Range("Jour").Find(What:=CDate(ComboBox1.Value))
'----sous- entend que la cellule soit au format correct
If Not C Is Nothing Then TextBox1.Value = C.Offset(0, 1).Text
' ----ne marche pas
'If Not C Is Nothing Then TextBox1.Value = Format(C.Offset(0, 1),"[hh]:mm")
' **** alternative fonctionnelle affichage au format souhaité indépendant du format cellule ****
'If Not C Is Nothing Then TextBox1.Value = Evaluate("=TEXT(" & C.Offset(0, 1).Address & ", ""[hh]:mm"")")
End Sub