Private Sub UserForm_Initialize()
Dim Tablo, k As Long
With Sheets("Liste du Personnel")
Tablo = .Range("A2:C" & .Range("A65536").End(xlUp).Row)
End With
With ListBoxSalDéjàExistant
.ColumnCount = 3
.ColumnWidths = "120;120;70"
For k = 1 To UBound(Tablo)
.AddItem Tablo(k, 1)
.List(.ListCount - 1, 1) = Tablo(k, 2)
.List(.ListCount - 1, 2) = Format(Tablo(k, 3), "00H00")
'.List(.ListCount - 1, 2) = Left(Tablo(k, 3), Len(Tablo(k, 3)) - 2) & "H" & Right(Tablo(k, 3), 2)
Next
End With
End Sub