Sub Eclate()
Dim Source As Variant
Dim Indexe As Long, Coupure As Long, Valeur As Long
Dim critere As String
Dim Tourne As Integer
' Itération sur le Nombre de colonnes à traiter
For Tourne = 0 To 3
Source = Range("A3").Offset(0, Tourne)
Indexe = 1
Valeur = 1
'Coupage des termes
Do
Valeur = Valeur + 1
'Trouve le début du terme
Coupure = InStr(Indexe, Source, Chr(10))
'Calcul fin
If Coupure > 0 Then
critere = Mid(Source, Indexe, Coupure - Indexe)
Else
critere = Mid(Source, Indexe)
End If
'Recopie dans autre feuille
Sheets("Feuil2").Range("A" & Valeur).Offset(0, Tourne) = critere
Indexe = Coupure + 1
Loop Until Coupure = 0
Next Tourne
End Sub