bonsoir a vous tous
bon j'ai trouvé comment faire pour la combobox, il reste le spinbutton a coder correctement , je vous joints le code
Private Sub UserForm_Initialize()
Set ws = Sheets("Articles")
With ws
Bdc = .Cells(1, 1).End(xlToRight).Column
For Bn = 5 To Bdc Step 12
ComboBox1.AddItem .Cells(2, Bn)
ComboBox1.List(Bc, 1) = Bn
Bc = Bc + 1
Next
End With
ComboBox1.ListIndex = 0
End Sub
Pascal