Cotation automatique des périodiques

Cette macro ne traite que les titres commençant par la même lettre : à compléter pour qu'une liste entière soit traitée.

Le but est de générer automatiquement des cotes dont l'ordre reflète exactement l'ordre alphabétique des titres.

Dim n_lignes As Integer
Sub nbre_lignes()
Sheets(1).Cells(1, 1).Select
If Not ActiveCell.Offset(1, 0).Value = "" Then
Selection.End(xlDown).Select
n = ActiveCell.Row
cotes (n)
Else
cotes (1)
End If
End Sub

Sub cotes(n)
Cells(1, 2).Value = 800 / (n + 1)
If n > 1 Then
Dim i As Integer
For i = 2 To n
Cells(i, 2).Value = i * (Cells(1, 2).Value)
Next
End If
For i = 1 To n
Cells(i, 2).Value = Round(Cells(i, 2).Value)
Next
End Sub