Incrementer un numero composé de lettres et chiffres

Bonjour,
je reviens à nouveau vers vous car bien qu'ayant été très très bien aidé lors de ma mise en route d'un petit programme de bon de commande, maintenant, je dois pouvoir incrémenter le n° avec trois lettres plus le n°
dans mon prog initial, après avoir vidé toutes les cellules de mon bon de commande, j'aivais cette ligne qui fonctionnait à merveille :


Sheets("Bon de Commande").Range("E1").Value = Sheets("Bon de Commande").Range("E1").Value + 1 'incrémenter le numéro de Bon de commande

E1 étant l'endroit de mo bon de commande où se trouve le n°.

le principe était que après l'enregistrement de mon bon de commande, on vide toutes les cellules (sans ôter les formules) et l'on passe à cette instruction qui incrémente de 1 pour le bon de commande suivant.
Maintenant, il faudrait que le n° devienne ABC-001 puis ABC-002 etc
Merci de votre aide.