Separer les information d'une cellule en 3 cellules

[jeromechant]

Bonjour,
Pour chaque ligne j'ai une cellule qui contient:
M. pin - LIEU DIT FLA
Mme LANGRY Patric - 9 CHEMI DES ROVES
Mme ferr sandrine - 1 PLACE RAIU - 1 - 1 place raimu
Mlle Vaey Audy - 2 AVENUE ROND GAOS
M. igy gregry - 1 RUE LA AGUAS
M. alt davd - 46 LA SALVETAT - villa N°4 - 46 chee la salvat
Mme Carper Megne - 6 RUE SEHIN COER

Je souhaite les information de la cellulle dans 3 cellules max
Nom & Prenom Adresse 1 de livraison Adresse 2 de livraison

Il y a une separation " - " qui revient toujours mais le probleme en plus c'est que certains on 3 " - " ce qui me ferais 4 case mais je n'ai que 3 emplacement.

[curulis57]

Salut jeromechant,

un double-clic sur la feuille démarre la macro.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tTab, tSplit, iCol%, sItem$
'
Cancel = True
tTab = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
For x = 1 To UBound(tTab, 1)
    tSplit = Split(tTab(x, 1), "-")
    For y = 0 To UBound(tSplit)
        iCol = IIf(y < 3, y + 3, 5)
        sItem = IIf(y < 3, tSplit(y), sItem & "-" & tSplit(y))
        Cells(x, iCol) = sItem
    Next
Next
'
End Sub

A+

[jeromechant]

Merci