XL 2010 Attribution numéro PV

[Appo1985]

Bonjour. Je voudrais attribuer des numéros PV automatiquement dans la première colonne après avoir trier la colonne,"Non" par ordre alphabétique.
Pour cela j'ai fait un Msgbox pour indiquer le premier numéro mais je ne sais pas comment faire pour que les autres suivent le premier par macro(le premier ne commence pas forcément par 1).
Je voudrais de l'aide pour la suite du code ou une autre manière de faire si il yen a.
Merci d'avance.
Ci joint le fichier

 

[sylvanu]

Bonjour Appo,
Par exemple en rajoutant :

Numéro = Val(nom) ' Car "nom" est une chaine de caractères
DL = [B65500].End(xlUp).Row
For L = 4 To DL
    Cells(L, "A") = Numéro + L - 4
Next L
End Sub

 

[fanfan38]

Bonjour
Salut Sylvanu
Ayant un tableau structuré....
Ci joint ma solution

A+ François

 

[Appo1985]

Merci @sylvanu , merci @fanfan38
Même résultat impeccable pour les deux solutions