Private Sub UserForm_Initialize()
Me.INTERNE.List = Array("Ras", "T?ches Marron", "Coulures Marron", "T?ches noires", "Corrosion", "A d?finir")
Me.EXTERNE.List = Array("impact Cylindre", "Impact Fond Ferm?", "Impact Fond Ouvert", "Enfoncement Cylindre")
Me.GOULOT.List = Array("Marque", "Plis D?form?", "Rayures plis", "Pon?age Anormal")
Me.FILETAGE.List = Array("OK", "NOK", "Abim?")
'''''''''''''''''Ne pas oublier les .List
'''''''''''''''''Me.LONGUEUR est une TextBox donc pas une liste (il faut un ComboBox)
'Me.LONGUEUR.List = Array("Marque", "Plis D?form?", "Rayures plis", "Pon?age Anormal")
End Sub