Private Sub UserForm_Initialize()
Dim i%
ComboBox1.List = [mois].Value
ComboBox1 = IIf([D1] = "", " ", [D1])
For i = 2009 To 2020
ComboBox2.AddItem i
Next
ComboBox2 = IIf([An] = "", " ", [An])
For i = 1 To 12
ComboBox3.AddItem i & " mois"
Next
ComboBox3 = " "
End Sub