Unifier le début des libelles d'un tableau

Bonjour

J'ai un tableau nommée TA1 qui contient 7 colonnes la 5 ème colonnes est le libellé.

Ce libellé parfois commence pas une lettre et parfois par un code de deux ,trois,quatres ou max cinques chiffres.

Je souhaite unifiée ce code de cinques chiffres et complèter le manque par des

Bonsoir,

Sub Test()
    Dim c As Range, v
    Application.ScreenUpdating = False
    For Each c In [Tableau1].Columns(5).Cells
        If IsNumeric(Left(c, 1)) Then
            v = Split(c)
            v(0) = Format(Val(v(0)), "00000")
            c = Join(v)
        End If
    Next c
End Sub

NB- Ton tableau ne peut pas être nommé TA1, ce nom serait refusé par Excel, aussi bien comme nom de tableau Excel que comme nom de plage... Je l'ai donc nommé Tableau1...

mille merci