Mytå

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