Private Sub UserForm_Initialize()
Dim tablo(), derligne As Integer
Dim tablonb(), derlignenb As Integer
'spécifie la date du jour lors de l'affichage de l'USF
MonthView1.Value = Now
With Feuil2
derligne = .Range("B65536").End(xlUp).Row
derlignenb = .Range("D65536").End(xlUp).Row
ReDim tablo(3 To derligne)
ReDim tablonb(3 To derlignenb)
For i = 3 To derligne
tablo(i) = Format(.Range("B" & i), "hh:mm")
Next i
ComboBox3.List = tablo
For n = 3 To derlignenb
tablonb(n) = .Range("D" & n)
Next n
ComboBox4.List = tablonb
End With
End Sub