Bonjour
tu peux aussi le faire avec une macro
A+
Maurice
Sub MiseForm()
Application.ScreenUpdating = False
For Li = 1 To Range("A" & Rows.Count).End(xlUp).Row
Tmp = ""
Non = Application.Trim(Range("A" & Li).Value)
T = Split(Non, " ")
N = T(UBound(T))
For L = 0 To UBound(T) - 1
Tmp = Tmp & T(L) & " "
Next
For S = Len(Tmp) To 30
Tmp = Tmp & " "
Next
Range("A" & Li).Value = Tmp & N
Next
Columns(1).Font.Name = "Consolas"
End Sub