Suppression de caractères

Private Sub CommandButton1_Click()
Dim cel As Range
Application.ScreenUpdating = False
For Each cel In Intersect(Me.UsedRange, Range("B3:F65536"))
cel = Trim(Replace(cel, cel.Offset(, -1), ""))
Next
End Sub

Private Sub CommandButton1_Click()
Dim cel As Range
Application.ScreenUpdating = False
On Error Resume Next
For Each cel In Range("B2", Range("B65536").End(xlUp))
If cel Like "O*" Then cel = Right(cel, Len(cel) - 2 * cel.Offset(, -1) - 2)
Next
End Sub

If cel Like "O *" Or cel Like "O.1*" Then cel = Mid(cel, InStr(cel, " ") + 1, 999)