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