Microsoft 365 VBA tri chiffres et chiffres avec lettres

Bonjour à tous,

Je cherche à trier un colonne qui est composée de chiffres et de chiffres avec une lettre.
Ex : 5010 ; 5011 ; 5012 ; 5012A ; 5012B etc.

Voici mon code :
Sub Tri_codeP()
'
' Tri_codeP Macro
'

'
Application.ScreenUpdating = False
Range("B8:L145").Select
ActiveWorkbook.Worksheets("JOURNAL PRODUITS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("JOURNAL PRODUITS").Sort.SortFields.Add Key:=Range( _
"E8:E145"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("JOURNAL PRODUITS").Sort
.SetRange Range("B7:L145")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
Range("B8").Select
End Sub

Mon soucis est que le tri avec les chiffres + lettre se retrouvent en bas de colonne alors que la valeur du chiffre est inférieur à certaines autres données.

Quelqu'un a t il une idée/astuce pour améliorer mon code ? J'ai essayé avec l’enregistreur de macros... en vain...

Merci par avance.

Naspg