Remplacer un "mot" par une variable

Bonjour,
j'ai la ligne de code suivante :

Sheets("Bon de Commande").Range("E1").Value = "STG-" & Format(Right(Sheets("Bon de Commande").Range("E1").Value, 4) + 1, "0000")

Pourrais-je changer "STG-" par une variable ?

J'explique : cette ligne de code fait en sorte que sur un Bon de commande, le numéro s'incrémente de 1 après chaque sortie du bon, mais il y a plusieurs "emetteurs" de ces bons et le sigle STG que j'ai actuellement est en rapport avec l'un d'eux.
Pour faire les autres bons, je dois à chaque fois changer cette ligne. Si j'avais une variable qui dirait :
en fonction de ce qui se trouve en cellule ("A3") la variable devient ...
merci de votre aide.