XL 2013 Ajout d'espace dans format de cellules

[karinette]

Bonjour à tous,
Je travaille actuellement sur un fichier excel, mais j'ai besoin d'inserer des espaces dans le format de cellule.
Je m'explique, toutes les cellules de la ligne 1, sont formaté ainsi "XXXXYYYDD", et j'aurais besoin qu'elle soit comme ceci : "XXXX YYY DD", c'est à dire avec un espace après 4 lettres, et ensuite 3 lettres ... (4 lettres, espace, 3 lettres, espace, et 2 lettres).
Si quelqu'un connait une astuce pour le faire par macro, je serais heureuse !!!
Merci à tous ...

 

[pierrejean]

Bonjour karinette

A tester

Sub insere()
For col = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
 If InStr(Cells(1, col), " ") = 0 Then ' pour eviter des ennuis si la macro est répetée
   a = Mid(Cells(1, col), 1, 4)
   b = Mid(Cells(1, col), 5, 3)
   c = Mid(Cells(1, col), 8)
   Cells(1, col) = a & " " & b & " " & c
 End If
Next
End Sub

 

[karinette]

Parfait ... Merci !!!