Eclatement cellule

sub kaki()
For i = 2 To Range("A65000").End(xlUp).Row
    Cells(i, 1).TextToColumns Destination:=Cells(i, 2), DataType:=xlDelimited, OtherChar:= _
        " ", FieldInfo:=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 9), Array(5, 9), _
        Array(6, 9), Array(7, 9))
    Next
End Sub

Option Explicit
Sub Extraire()
    Application.ScreenUpdating = 0
    Range("b2:b" & Range("a65536").End(xlUp).Row).FormulaR1C1 = "=LEFT(RC[-1],10)*1"
    Range("b2:b" & Range("a65536").End(xlUp).Row).NumberFormat = "m/d/yyyy"
    Range("c2:c" & Range("a65536").End(xlUp).Row).FormulaR1C1 = "=MID(RC[-2],12,2)"
    Range("d2:d" & Range("a65536").End(xlUp).Row).FormulaR1C1 = "=MID(RC[-3],15,2)"
    With Columns("B:D").SpecialCells(xlCellTypeFormulas, 23)
        .Value = .Value
    End With
    Application.ScreenUpdating = -1
End Sub

Sub ExtraireAvecDesEndives()
Dim dl&
Application.ScreenUpdating = 0
dl = Cells(Rows.Count, 1).End(xlUp).Row - 1
With Range("B2").Resize(dl)
    .FormulaR1C1 = "=LEFT(RC[-1],10)*1"
    .NumberFormat = "m/d/yyyy"
    .Offset(, 1).FormulaR1C1 = "=MID(RC[-2],12,2)"
    .Offset(, 2).FormulaR1C1 = "=MID(RC[-3],15,2)"
    With .Resize(, 3).SpecialCells(-4123, 23)
       .Value = .Value
    End With
End With
 Application.ScreenUpdating = -1
End Sub

Option Explicit
Sub Extraire_avec_des_endives_sans_trou_because_limaces()
    Application.ScreenUpdating = 0
    With Range("b2:b" & Range("a65536").End(xlUp).Row)
        .FormulaR1C1 = "=IF(RC[-1]="""","""",LEFT(RC[-1],10)*1)"
        .Value = .Value
        .NumberFormat = "m/d/yyyy"
        .Offset(, 1).FormulaR1C1 = "=IF(RC[-2]="""","""",MID(RC[-2],12,2))"
        .Offset(, 2).FormulaR1C1 = "=IF(RC[-3]="""","""",MID(RC[-3],15,2))"
    End With
    With Columns("B:D").SpecialCells(xlCellTypeFormulas, 23): .Value = .Value: End With
        Application.ScreenUpdating = -1
End Sub

With Range("b2:b" & Range("a65536").End(xlUp).Row)