Sub Macro1()
Dim cel As Range
Dim x As Byte
For Each cel In Range("J1:J" & Range("J65536").End(xlUp).Row) 'à adapter à ton cas
For x = 1 To Len(cel.Value)
If Mid(cel.Value, x, 1) = "/" Then
cel.Offset(0, 1).Value = Mid(cel.Value, 1, x - 1)
cel.Offset(0, 2).Value = Mid(cel.Value, x + 1, Len(cel.Value) - x)
Exit For
End If
Next x
cel.Offset(0, 1).Value = Trim(cel.Offset(0, 1).Value)
cel.Offset(0, 2).Value = Trim(cel.Offset(0, 2).Value)
Next cel
End Sub