Sub Extract_Mots()
Dim tableau
Application.ScreenUpdating = False
tableau = Split(Sheets("Feuil1").Range("A1"), "@")
With Sheets("Feuil2").Range("A1").Resize(UBound(tableau) + 1)
.EntireColumn.Clear
.NumberFormat = "@"
.Value = Application.Transpose(tableau)
End With
End Sub