Classement onglet excel par ordre croissant

Bonjour,

Voila, je suis bloqué sur un problème VBA Excel depuis pas mal de temps et je viens sur ce forum pour trouver de l'aide! Merci à ceux qui répondront...

A partir d'une textbox (et de la valeur numerique renseignée dans celle-ci), Excel me créer des feuilles "order" (bon de commande) (par un copier/coller d'une Order1 fixe ) correspondantes à la valeur textbox. Ces feuilles se différencient par un nombre (Order1, Order2, Order3,etc.).
Mon problème est qu'il les classes dans l'ordre décroissant (Ex: j'écris la valeur '4' dans la textbox, Excel me créer 3 feuilles Order selon l'Order1 dans l'ordre suivant: Order1, Order4, Order3, Order2).
Voici une partie de mon code ci-dessous: (enregistrée dans un Userform)

Private Sub TextBox1_AfterUpdate()

Dim numsheets As Integer
Dim i As Integer
Dim Value As Integer

Const MinValue = 1
Const DefValue = 1
Const MaxValue = 20

numsheets = Val(TextBox1.Value)

Select Case Val(TextBox1.Value)

Case MinValue To MaxValue

For i = 2 To numsheets
Sheet9.Copy after:=Sheets(2) 'Worksheets.Name("Order" & i)
ActiveSheet.Name = "Order" & i
ActiveSheet.Range("P2").Value = "Order " & i '-> personnalize the orders!
ActiveSheet.Range("B41").Value = "SUMMARY Order " & i
ActiveSheet.Range("P41").Value = "TOTAL - Order " & i

Next i
…

J'espère avoir été assez claire dans mes explications, sinon n'hésitez pas à me demander!!!

Merci à vous...