Sub enligne()
For lig = 2 To [F65000].End(3).Row
Cells(lig, 6) = Replace(Cells(lig, 6), Chr(10), " ")
Next
End Sub
Sub enligne()
For lig = 2 To [F65000].End(3).Row
tx = Cells(lig, 6)
Cells(lig, 6) = Replace(tx, Chr(10), " ")
tx = Cells(lig, 6)
pos = InStr(tx, "-")
If pos > 0 Then
tx1 = Split(tx, "-")(0)
Cells(lig, 6) = tx1 & "Ingrédient :" & Chr(10) & Right(tx, Len(tx) - pos)
End If
Next
End Sub