Private Sub UserForm_Initialize()
For b = 1 To 26: Set Btn(b).GrLettres = Me("B_" & b): Next b
Sheets("Articles").Range("B3:B8").Sort Key1:=[COLOR=Blue][B]Sheets("Articles").[/B][/COLOR]Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'-- Liste des noms
i = 2
Do While Cells(i, 1) <> ""
Me.ListBox2.AddItem Cells(i, 1)
i = i + 1
Loop
ListBox1.List = Array("Bureautique", "Informatique", "Papeterie", "Divers")
End Sub