Insérer un espace après le premier caractère des cellules

Re bonjour,

C'est de nouveau moi, cette fois ci, j'aurai besoin de savoir comment insérer dans toutes mes cellules de la colonne A un espace entre le premier caractère et le reste du contenu.

Sachant que beaucoup de cellules sont vides également.

Any idea?

Merci d'avance!

Bon, vous allez finir par ne plus me prendre au sérieux, j'ai résolu mon truc en prenant plan B! Merci

Salut,

[EDIT : trop tard ! ]

voir fichier joint

Bonjour,

il faut jouer avec la manipulation des chaines de caractères.

comme ceci:

Dim plage As Range, c As Range
Dim nbcarac As Byte

With Sheets("Feuil1")
Set plage = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With

For Each c In plage
    If c <> "" Then
        nbcarac = Len(c.Value) 'compte le nombre de caractère de la chaine
        c.Value = Left(c.Value, 1) & " " & Mid(c.Value, 2, nbcarac)'recherche le premier caractère, insère un espace, et rajoute le reste de la chaine
    End If
Next c

Merci à vous!

Vu que je n'y connais (rien) pas grand chose au VBA je ne saurai jamais écrire de telle macro.

J'ai juste concaténer astucieusement les cellules afin d'obtenir ce que je souhaitais!

Merci encore