Private Sub UserForm_Initialize()
ComboBox1.AddItem "Crédit"
ComboBox1.AddItem "Débit"
ComboBox2.List = Sheets("Param").Range("Reglt").Value
[COLOR="Blue"]ComboBox4.List = Sheets("Param").Range("Nature").Value[/COLOR]
With Sheets("registre caisse")
ComboBox3.List = Application.Transpose(.Range("A3:H3").Value)
End With
IniCtl
End Sub