Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
tablo = Split(Target, "-")
For i = LBound(tablo) To UBound(tablo)
x = i
For k = x + 1 To UBound(tablo)
If tablo(k) <= tablo(x) Then x = k
Next k
If i <> x Then
ValTemp = tablo(x): tablo(x) = _
tablo(i): tablo(i) = ValTemp
End If
Next i
Target = Join(tablo, "-")
Application.EnableEvents = True
End Sub