en vba répartir dates et chiffres contenus ds une cellule vers différentes celluless

Sub ExploseCel()
Dim Tablo, k As Integer, y As Integer, m As Integer, p As Integer
Tablo = Split(Range("A1"))
p = 2
For k = 0 To UBound(Tablo)
  Tablo(k) = Replace(Tablo(k), Chr(13), "")
  Tablo(k) = Replace(Tablo(k), Chr(10), "")
Next
   
With Sheets("Feuil2")
  For y = 0 To UBound(Tablo)
    If IsDate(Tablo(y)) Then
       p = p + 2
       m = 3
       .Cells(p, m) = CDate(Tablo(y))
    Else
       .Cells(p, m) = Tablo(y)
    End If
    m = m + 1
  Next
End With
End Sub