XL 2010 Pop-up: remplir case en conservant 5 premieres chiffres deja présents

Bonjour à tous

Je découvre les pop-up avec VBA et j'ai besoin de votre aide.
J'ai crée une pop-up pour remplir une cellule, jusque ici tout va bien

Par contre, j'aimerai que ce que je rempli dans la pop-up remplisse la cellule E8, mais en conservant les 5 premiers caractères (TP14-) déjà présents dans cette cellule.

Voici ma formule VBA actuelle:

Sub Autpen()
nom = InputBox("Quel est le numéro de l'affaire (sans le TP14-)?", "Votre nom")
Range("e8").Value = nom
End Sub

Que rajouter svp?

Merci et passez de bonnes fêtes de fin d'année