Private Sub UserForm_Initialize()
Dim i As Variant, n As Byte
CboDates.ColumnCount = 2 'inutile si initialisée correctement
CboDates.ColumnWidths = "90;0" 'inutile si initialisée correctement
With Sheets("Saisies")
i = Application.Match(CLng(Date), .[D:D], 0)
If IsNumeric(i) Then
For i = i To 11 Step -2
CboDates.AddItem Format(.Range("D" & i), "ddd dd mmm yyyy") 'format modifiable...
CboDates.List(n, 1) = i
n = n + 1
If n = 7 Then Exit For
Next
End If
End With
ListBox1.List = Feuil1.Range("P2", Feuil1.Range("P65536").End(xlUp)).Value
End Sub