Macro pour supprimer le premier et le dernier mot d'une phrase

Sub Test()
    Set Plage = Range("A2:" & Range("A65536").End(xlUp).Address)
    Plage.Offset(0, 1).Resize(Plage.Rows.Count, 200).ClearContents
    If Cells.SpecialCells(xlLastCell).Column <> 1 Then Range(Range("B2"), Range("B2").SpecialCells(xlLastCell)).ClearContents
    Plage.TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, Space:=True
End Sub

Function court$(p$)
Dim x
    x = Split(" " & Trim(p))
    x(1) = ""
    x(UBound(x)) = ""
    court = Trim(Join(x))
End Function

Function Milieu(x) As String
Milieu = Trim(Mid(StrReverse(Trim(x)) & " ", InStr(StrReverse(Trim(x)) & " ", " "), Len(x)))
Milieu = Trim(Mid(StrReverse(Trim(Milieu)) & " ", InStr(StrReverse(Trim(Milieu)) & " ", " "), Len(Milieu)))
End Function