Option Explicit
Dim Lgn As Integer
Dim Indx As Integer
Dim T
Dim DteRef As Date
Private Sub UserForm_Initialize()
Indx=0
With Sheets("Datum")
DteRef = CDate(.Cells(2, 5).Value)
With .Range("B5:B89")
.Sort key1:=Cells(5, 2), order1:=xlAscending, Header:=xlYes
T = .Value
End With
End With
With Me.cboDay
For Lgn = 1 To UBound(T, 1)
.AddItem T(Lgn, 1)
If T(Lgn, 1) = DteRef Then Indx = Lgn - 1 'On détermine le ListIndex de la date
Next Lgn
.ListIndex = Indx
End With
End Sub