Sub derniermot()
Dim c As Range, r As Range
Set r = Range([A1], [A65536].End(xlUp))
For Each c In r
c.Offset(, 1) = StrReverse(Split(StrReverse(c.Text), Chr(32))(0))
Next
End Sub
[COLOR="DarkSlateGray"][B]=DROITE(A1;NBCAR(A1)-MAX((STXT(A1;COLONNE($1:$256);1)=" ")*COLONNE($1:$256)))[/B][/COLOR]