Attribute VB_Name = "supetoile"
Sub suprime_apres_etoile()
Dim i
For i = 3 To Range("X" & Rows.Count).End(xlUp).Row

tb = Split(Cells(i, "X"), Chr(10))
texte = ""
For j = LBound(tb) To UBound(tb)
texte = texte & Split(tb(j), "*")(0) & Chr(10)
Next j
Cells(i, "X") = texte
Next i
End Sub