Option Explicit
Sub Suppr_SE()
Dim derl&, i&, temp$
derl = Cells(Rows.Count, 3).End(xlUp).Row
For i = 4 To derl
If Right(Cells(i, 3), 2) = "SE" Then
temp = Mid(Cells(i, 3), 1, Len(Cells(i, 3)) - 2)
Cells(i, 8) = temp
Else
Cells(i, 8) = Cells(i, 3)
End If
Next i
End Sub