macro pour mettre texte à la ligne dans cellule

Function RETOURLIGNE(t As String) As String
Dim i As Integer
For i = 1 To 99 '999 si pas suffisant...
  t = Replace(t, i & ")", vbLf & i & ")", , 1)
Next
RETOURLIGNE = Mid(t, 2)
End Function

Sub Macro1()
Dim T() As String, Cel As Range, Z As String, N As Long, P As Long
For Each Cel In Selection
   T = Split(Cel.Value, ")")
   If UBound(T) >= 0 Then Z = T(0) Else Z = ""
   For N = 1 To UBound(T)
      For P = Len(Z) To 1 Step -1
         If InStr("0123456789", Mid$(Z, P, 1)) = 0 Then Exit For
         Next P
      If P = Len(Z) Or P = 0 Then
         Z = Z & ")" & T(N)
      ElseIf Mid$(Z, P, 1) = " " Then
         Z = Left$(Z, P - 1) & vbLf & Mid$(Z, P + 1) & ")" & T(N)
      Else
         Z = Left$(Z, P) & vbLf & Mid$(Z, P + 1) & ")" & T(N)
         End If
      Next N
   Cel.Value = Z
   Next Cel
End Sub

Function RETOURLIGNE(t As String) As String
Dim i As Integer
For i = 1 To 99 '999 si pas suffisant...
  t = Replace(t, " " & i & ")", vbLf & i & ")")
Next
RETOURLIGNE = t
End Function

For Each Cel In Selection
   T = Split(Replace(Cel.Value, vbLf, " "), ")")