Non que je m'en offusque, mais plusieurs choses à te dire :Veux tu que 1p0p2p(06)0h0s7h0hAs3s
devienne :
1p en E9
0p en F9
2p en G9
mais la suite ??? CAR je vois nulle part des exemples avec h, s, etc...
Sub carrousel()
With Range("E2:E" & [E65000].End(xlUp).Row)
.Replace "(**)", ""
.TextToColumns Destination:=Range("E2"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(4, 1), Array(6, 1), Array(8, 1), Array _
(10, 1), Array(12, 1), Array(14, 1), Array(16, 1), Array(18, 1)), TrailingMinusNumbers:=True
End With
End Sub
TrailingMinusNumbers Argument de type Variant facultatif. Nombres qui commencent par un signe moins