Classement numérique à partir de la ligne A8

Bonjour, J'ai une macro qui me permet, après chaque validation d'opération d'insérerer une ligne après la ligne 7. Donc j'ai une nouvelle ligne 8 après chaque opération.
Dans ma colonne A ma macro inscit automatique pour chauqe ligne le numéro de l'opération..1,2,3,4,5,6..mais uniquement à partir de la ligne 8.
A chaque fois que q'une nouvelle ligne s'insère je fais un classement alphabétique de A8:D2000 (ne savant pas faire un classement numérique).
J'ai plusieurs problème :
-Le classement des ligne se fait en fonction de ma colonne B alors que je voudrais le faire en focntionde la colonne A
-Quel est le programme pour classer numériquement (du plus grand au plus petit???

Je joitn ma macro, mais je ne sais pas si elle vous permmettera de résoudre mon problème :s
Private Sub CommandButton1_Click()
[B7] = Mafeuille.TextBox1
[C7] = Mafeuille.ListBox1
If Controls("CheckBox1").Value = True Then
[A7] = "=LIGNE() - 7"
Range("A7").NumberFormat = "General"
Range("A7").FormulaLocal = "=LIGNE() - 7 & -2009"
End If
If Controls("CheckBox1").Value = False Then
[A7] = ""
End If
If Controls("CheckBox2").Value = True Then
[D7] = Date
End If
If Controls("CheckBox2").Value = False Then
[D7] = "Non daté"
End If
MsgBox ("And Another Victim!")
Rows("6:6").Select
Selection.Insert Shift:=xlDown '
Range("A8:D2000").Select '
Selection.Sort Key1:=Range("A8:D8"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom '
Range("A8").Select
End Sub