Salut,
Ce serait mieux comme ceci :je suppose que ce sont les chevaux que tu veux...
Private Sub UserForm_Initialize() 'Initialization de l'Userform
Dim Plage As Range
.Select 'Feuille par défaut : race1
ComboBox1.Value = 1 'Valeur par défaut : 1
With Worksheets("race1")
.Select 'Feuille par défaut : race1
Set Plage = Range(.[E6], .[E65536].End(xlUp))
End With
ComboBox1.RowSource = Plage.Address 'plag 'évite de taper un valeur interdire
' ou encore ComboBox1.list=plage.value
End Sub
Pour le tri pas tout compris ce que tu veux faire, d'autant plus qu'on a pas accés à ta macro de tri.
A+++