Public Sub toto()
Dim plg As Range, plg2 As Range
Dim t
Dim i As Byte
Set plg = Range("a1")
t = split97(plg, "-")
For i = 1 To UBound(t)
Set plg2 = plg.Offset(, i)
Select Case i
Case 1: plg2 = Mid(plg, 1, t(i) - 1)
Case UBound(t): plg2 = Mid(plg, t(i) + 1, Len(plg) - t(i))
Case Else: plg.Offset(, i) = Mid(plg, t(i) + 1, t(i + 1) - 1 - t(i))
End Select
Next i
End Sub
Public Function split97(tx, p)
Dim tablo()
Dim i As Byte
For i = 1 To Len(tx)
If Mid(tx, i, 1) = p Then
x = x + 1
ReDim Preserve tablo(x)
tablo(UBound(tablo)) = i
End If
Next i
split97 = tablo
End Function