Sub Synthese()
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
t = Selection.Rows.Count
Range(Cells(3, 2), Cells(t + 2, 2)).Select
For Each i In Selection
If i <> "" Then
s = InStr(i, Chr(10))
p1 = Left(i, s - 1)
p2 = Right(i, Len(i) - s)
phrase = phrase & p1 & Chr(10) & p2 & Chr(10)
End If
Next
Cells(t + 3, 2) = Left(phrase, Len(phrase) - 1)
Cells(t + 3, 2).Select
Gras
End Sub