Vba supprimer caractere cellule

Sub MAJ()
 Dim i As Integer
 Dim valeur_recherchee As String
 'si la valeur recherchée n'est pas trouvée => plantage
 'supprime plantage et passe a l'instruction suivante
 On Error Resume Next
 With Sheets(1)
 'Suppression de ligne dans "PORTEFEUILLE LIVRABLE" si "N° CAR" n'existe pas dans "Fichier source de MAJ"
 For i = .Range("N" & Rows.Count).End(xlUp).Row To 2 Step -1
 If Application.CountIf(Sheets(2).Columns("L"), .Range("N" & i).Value) = 0 Then
 .Range("N" & i).EntireRow.Delete
 End If
 Next i
 End With
 For i = 2 To Sheets(2).Range("L65536").End(xlUp).Row
 valeur_recherchee = Sheets(2).Range("L" & i)
 With Sheets(1)
 ligne = .Columns("N").Find(what:=valeur_recherchee, LookIn:=xlValues, lookAt:=xlWhole).Row
 If ligne <> 0 Then
 .Range("O" & ligne) = Sheets(2).Range("K" & i)
 .Range("Q" & ligne) = Sheets(2).Range("N" & i)
 .Range("R" & ligne) = Sheets(2).Range("O" & i)
 .Range("H" & ligne) = Sheets(2).Range("AK" & i)
 ligne = 0
 End If
 End With
 Next

Call TEST '<<<<<<<<<<<<<<<<<<<<=============================
 On Error GoTo 0
 End Sub
 '---------------------------------------------

 '---------------------------------------------
 Sub test()
 Dim Rg As Range, C As Range

 Application.ScreenUpdating = False
 Application.EnableEvents = False
 With Worksheets("PORTEFEUILLE LIVRABLE")
 Set Rg = .Range("O2:O" & .Range("O" & .Cells.Rows.Count).End(xlUp).Row)
 End With
 For Each C In Rg
 C.Value = Left(Trim(C.Value), 8)
 Next
 Application.EnableEvents = True
 Application.ScreenUpdating = True
 End Sub