Sub Macro2()
Dim O As Worksheet
Dim TV As Variant
Dim I As Integer
Dim J As Byte
Set O = Worksheets("Feuil1")
TV = O.Range("A1").CurrentRegion
For I = 1 To UBound(TV, 1)
If UBound(Split(TV(I, 1), "\")) > 0 Then
For J = 0 To 2
O.Cells(I, J + 2).Value = Split(TV(I, 1), "\")(J)
Next J
End If
Next I
End Sub