Private Sub ComboBox1_Click()
Range('c65536').End(xlUp).Offset(1, 0) = ComboBox1
End Sub
'----------------------------------------------------
Private Sub UserForm_Initialize()
ComboBox1.AddItem 'voiture'
ComboBox1.AddItem 'cyclomoteur'
ComboBox1.AddItem 'scooter'
ComboBox1.AddItem 'vélo'
ComboBox1.AddItem 'piéton'
End Sub