copier 3 lignes d'une même cellule dans 3 cellules différentes

Mon pb est sur excel car je cherche un code pour faire la manipulation suivante:

Pour résumer: dans la cellule A1, j'ai
-Nom sur une ligne
-Adresse sur une autre ligne
-Ville sur une autre ligne

et je voudrais avoir
-Nom en B1
-Adresse en C1
-Ville en D1

Merci
La guigne

Voici le code a mettre dans le visual basic editor de excel

Private Sub CommandButton1_Click()
Dim maString As String
maString = Feuil1.Cells(1, "A")
Feuil1.Cells(1, "B") = Mid(maString, 1, InStr(1, maString, Chr(10)) - 1)
maString = Mid(maString, InStr(1, maString, Chr(10)) + 1, Len(maString))
Feuil1.Cells(1, "C") = Mid(maString, 1, InStr(1, maString, Chr(10)) - 1)
maString = Mid(maString, InStr(1, maString, Chr(10)) + 1, Len(maString))
Feuil1.Cells(1, "D") = Mid(maString, 1, Len(maString))
End Sub

Salut j'ai encore mieux pour toi


Dim maString As String
Dim montab

maString = Feuil1.Cells(1, "A")

montab = Split(maString, Chr(10), -1, vbBinaryCompare)

Feuil1.Cells(1, "B") = montab(0)
Feuil1.Cells(1, "C") = montab(1)
Feuil1.Cells(1, "D") = montab(2)

End Sub