Sub test()
Dim TabBase() As Variant
TabBase = Range(Cells(2, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1))
ReDim Preserve TabBase(1 To UBound(TabBase, 1), 1 To 3)
For i = 1 To UBound(TabBase, 1)
TabBase(i, 2) = Split(TabBase(i, 1), "-")(UBound(Split(TabBase(i, 1), "-")) - 1)
TabBase(i, 3) = Split(TabBase(i, 1), "-")(UBound(Split(TabBase(i, 1), "-")))
Next i
' Le fichier n'est pas toutes a fait Propre donc par formules c'est pas trop possible
' Deuxiéme tours de bouble pour
' PRICING: (1-5: 62.86 / 6-8: 55 / +9: 48.89), AGEN DOWNTOWN-BORDEAUX RR STN
' = Erreur ), au lieu de - !!!
For y = 1 To UBound(TabBase, 1)
If TabBase(y, 2) Like "*), *" Then
TabBase(y, 2) = Split(TabBase(y, 2), "), ")(1)
End If
Next y
' Extraire une colone d'un tableau :
' c'est a dire la colone N°2 du tableau a recopier en colonne
'Cells(2, 12).Resize(UBound(TabBase, 1), UBound(TabBase, 2)).Value = TabBase
'Cells(2, 14).Resize(UBound(TabBase, 1), 1).Value = Application.Index(TabBase, , 2)
For y = 2 To 3
Cells(2, y + 2).Resize(UBound(TabBase, 1), 1).Value = Application.Index(TabBase, , y)
Next y
'For y = 1 To UBound(TabBase, 1)
' Cells(y + 1, 4) = TabBase(y, 2)
' Cells(y + 1, 5) = TabBase(y, 3)
'Next y
End Sub