Je ne crois pas qu'il soit possible de définir une format (.NumberFormat) qui fasse ça.
Il faut faire un code qui remplace les valeurs brutes par leurs équivalents formatés comme je l'ai indiqué (
Format(s, "@@@@@@@") ou Format(s, "&&:&&:&&:&&:&&:&&")) soit directement dans les cellules des valeurs brutes soit dans une autre colonne.