Sub formater()
Dim xrg As Range, xcell As Range, s As String
Dim i As Long, i0 As Long, L As Long, Tablo
Application.ScreenUpdating = False
Set xrg = Range("A" & Rows.Count).End(xlUp)
Set xrg = Range(Range("A1"), xrg)
For Each xcell In xrg
If Len(xcell) <> 0 Then
Tablo = Split(xcell)
s = Join(Tablo, "")
If Len(s) Mod 2 = 1 Then s = " " & s
L = Len(s) \ 2
i0 = Len(s)
ReDim Tablo(1 To L)
For i = i0 To 2 Step -2
Tablo(i \ 2) = Mid(s, i - 1, 2)
Next i
xcell = LTrim(Join(Tablo))
End If
Next xcell
Application.ScreenUpdating = True
End Sub