bonjour
je me demande seulement si il y a plus simple pour formater une chaine numerique
exemple que j'utilise
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub testx()
    Dim N$
    N = "25143000252642"
    N = Application.Rept("0", IIf(Len(N) Mod 3 <> 0, 3 - Len(N) Mod 3, 0)) & N
    Debug.Print Format(N, Application.Rept("000 ", Len(N) / 3))
End Sub
le principe est que l'on ajoute 1 ou 2 zero OU PAS !!! devant pour qu'au formatage on ai des tranches de 3 chiffres

resultat
025 143 000 252 642

et cela pour nimporte quel nombre et longueur de chaine