XL 2016 VBA Remplacer caractères en cellule tout en conservant les formats de caractères au-delà de 255 caractères

Bon, remplacer des caractères en cellule tout en conservant les formats n'a rien de simple !

- Pour les chaines de moins de 255 caractères, on peut taper directement dans les Cellule.Characters().Delete et .Insert pour faire la substitution de valeur, donc c'est assez rapide.

- Pour les chaines de plus de 255 caractères (y compris 255 caractères par précaution) il faut mémoriser les propriétés de chaque caractère avant de faire la substitution de valeur dans la cellule par remplacement dans le Cellule.Value puis ensuite restorer les 14 propriétés (12 en fait). de chaque caractère.
Comme il y a beaucoup de propriétés qu'on va chercher ou définir directement en cellules, ça prend pas mal de temps.
Sur certaines propriétés que j'ai renoncées à gérer (.ThemeColor & .Style), le simple Get ou Set de la propriété perturbe complètement la structure de la chaîne.