Numéro de création

Bonsoir à toutes et à tous,

'Numéro création
lbNC2 = Application.CountIf(Range("TNAM[CNAM]"), cbCNAM.Value) + 1
Telle qu'elle est actuellement, cette instruction fonctionne.
Je voudrais faire précéder le numéro de création du contenu partiel du cbCA :
DMR01
DS01
DW21
LLMR17
LSLM14 : ce doit être le plus long.
LSMJ06
LSV11
LWS03
LWD04
LVMR05
LVMW07
LVS36
Dans le numéro création, je voudrais faire apparaitre les deux, trois ou quatre lettres sans les chiffres du code article. Qui pourra me donner la bonne solution ?
Les instructions suivantes devront-elles modifiées compte tenu de la modification du numéro création ? Si oui, d'avance merci pour me donner les nouvelles instructions.
'Tri ascendant colonne CNAM du tableau structuré TNAM
Sub TriTNAM()
Dim NE As Long, N As Long 'NE = nombre de lignes du tableau structuré TNAM. N : variable pour boucler sur les cellules Numéro création.

'Feuille_Liste_Bd articles_menus : ce nom sera à reprendre dans son intégralité dans le module MO05_VariablesPublic
With Feuille_Liste_BD_articles_menus.ListObjects("TNAM")
'Sort : Représente le tri d'une plage de données.
With .Sort
'Header : Cette propriété indique si la première ligne contient des informations sur l'en-tête. La première ligne du tableau structuré TNAM est une ligne d'en-têtes (=> ne pas
'la trier.
.Header = xlYes
'MatchCase : Trier sans faire la différence entre les majuscules et les minuscules.
.MatchCase = False
With .SortFields
.Clear 'Supprime tous les critères de tri
.Add Key:=Range("TNAM[CAM]"), SortOn:=0, Order:=1 'Code article par valeur, croissant.
.Add Key:=Range("TNAM[NAM]"), SortOn:=0, Order:=1 'Nom article par valeur, croissant.
End With
.Apply: [B2].Select 'Fait le tri selon les informations ci-dessus puis va en B2
End With
'Insérer Numéro création dans TriTNAM. Écriture colonne numéro création
NE = .ListRows.Count
For N = 1 To NE
Range("TNAM[Numéro création]").Item(N) = N
Next N
End With
End Sub

D'avance merci pour vos réponses.