Sub espace()
Dim i As Long, j As Long, Derlig As Long, Vlen As Long
Dim Vstr As String, y As String
With Sheets("Feuil1")
Derlig = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To Derlig
Vstr = .Cells(i, 1)
For j = 1 To Len(Vstr) Step 2
y = y & Mid(Vstr, j, 2) & " "
Next j
.Cells(i, 2) = y
y = ""
Next i
End With
End Sub
=SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;"h";"h ");"p";"p ");"c";"c ")