Private Sub UserForm_initialize()
Dim C As Range, MaListe As Object
ComboBox2.AddItem "ACHAT"
ComboBox2.ListIndex = 0
ComboBox3.List = Array(vbNullString, "CORDE", "AGRES TEXTTILE", "AGRES METALLIQUE", "HABILLEMENT", "AUTRES")
ComboBox3.ListIndex = 0
ComboBox4.List = Array("RESERVE", "COLLECTIF CHI", "COLLECTIF LOC", "COLLECTIF NAG", "COLLECTIF SAG", "COLLECTIF VEHICULE", "FORMATION", "RECYCLAGE", "TCN")
ComboBox4.ListIndex = 0
ComboBox5.List = Array(vbNullString, 325, 655, 910, 915, 930, 1711, 1911, 2315, 2322, 2328, 2355, 2356, 2610, 2715, 3511, 3610, 4220)
ComboBox5.ListIndex = 0
ComboBox6.List = Array(vbNullString, "Inv.2158", "Fonc.60632", "Fonc.60636", "Fonc.61558")
ComboBox6.ListIndex = 0
ComboBox7.List = Array(vbNullString, "Sans durée chiffrée", "Maxi 5 ans ou 90 heures", "contrôle annuel", "contrôle annuel sur banc", "consommable")
ComboBox7.ListIndex = 0
End Sub