Erreur sur code Tri combobox

Bonjour à tous

serait'il possible de me dire pourquoi le tri croissant ne se fait pas

voici mon code :
Private Sub UserForm_Initialize()
Dim S As Worksheet
Dim R As Range
Dim var
Set S = Sheets(MA_FEUILLE)
Set R = S.Range("b3:b" & S.[b65536].End(xlUp).Row & "")
var = R
V1.List = var
V1.SetFocus
P2.List = var
End Sub

Private Sub V1_Change()
If V1.ListIndex = -1 Then Exit Sub
TextBox1.Value = V1.ListIndex + 1
TextBox3.Value = V1.ListIndex + 1
End Sub

Private Sub P2_Change()
If P2.ListIndex = -1 Then Exit Sub
TextBox2.Value = P2.ListIndex + 1
TextBox4.Value = P2.ListIndex + 1
End Sub

merci pour votre aide