Private Sub CommandButton1_Click()
Dim m As Integer
Dim n As Integer
Dim x
Columns(3).ClearContents
For n = 4 To Range("A65536").End(xlUp).Row
x = Split(Range("A" & n), " ")
If UBound(x) - 2 > 0 Then
For m = 0 To UBound(x) - 2
Range("C" & n) = Range("C" & n) & " " & x(m)
Next m
End If
Range("D" & n) = x(UBound(x)) 'dernière chaîne de caractère après le " "
Next n
End Sub