Bonjour,
Teste pour voir si ça convient :
Private Sub ComboBox1_Click()
TextBox1.Text = Format(Cells(15 + ComboBox1.ListIndex, 5).Value, "hh:mm")
End Sub
Private Sub UserForm_Initialize()
equipe = ActiveCell.Offset(0, 0).Value
For i = 1 To 4
ComboBox1.AddItem Format(Cells(i + 14, 4), "hh:mm")
Next i
ComboBox1.Text = ComboBox1.List(1)
End Sub
Hervé.