coller, avec "retour chariot" dans une cellule fusionnée.

bonjour à tous...
et merci d'avance...
Je suis à la recherche d'une macro, qui pourrait faire ceci:
Une cellule(A1)contenant: Nom, Prénom, Rue, Ville.
(Tous séparés par une virgule)
Comment, par un"copier coller" ou autre procédure, placer ces données dans une cellule fusionnée(B1:E1), avec un "retour chariot" entre chaque données?
A+
Claudy

Salut Claudy

Vite fait en Vba sa donnerait quelque chose comme cela

Sub Copier()
Range("A1").Copy
Range("B1:B5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Replace What:=", ", Replacement:="" & Chr(10) & "", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub

re Claudy



Sub Copier()
Rows("1:1").RowHeight = 50 'Ajustement en hauteur pour tous voir
Range("A1").Copy
Range("B1:E1").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Replace What:=", ", Replacement:="" & Chr(10) & "", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Activate
End Sub