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