Sub Macro1()
Dim O As Worksheet
Dim TV As Variant
Dim TS() As Variant
Dim I As Integer
Dim J As Byte
Set O = Worksheets("Feuil1")
TV = O.Range("A1").CurrentRegion
TS = Array(" ", "+", "-", "/", "&", "!", "\", "~")
For I = 1 To UBound(TV, 1)
TV(I, 1) = Trim(TV(I, 1))
For J = 0 To UBound(TS)
If UBound(Split(TV(I, 1), TS(J))) > 0 Then
TV(I, 1) = Trim(Split(TV(I, 1), TS(J))(0))
Exit For
End If
Next J
Next I
O.Range("C1").Resize(UBound(TV, 1), 1).Value = TV
End Sub