Supprimer une partie de caracteres dans un serie de cellules

=CNUM(SUBSTITUE(A1;"ABC";""))

Range("A5") = Replace(Range("A5"), "ABC", "")

Sub Make_VBS_Ref()
    On Error Resume Next
    'in case ref exists
    ActiveWorkbook.VBProject.References.AddFromGuid "{3F4DACA7-160D-11D2-A8E9-00104B365C9F}", 5, 5
End Sub



Sub RegExp_Late_Replace_1()
'Late binding
'Dimension the RegExp objects
    Dim RegEx As Object
    Dim Myrange As Range, C As Range


    Set RegEx = CreateObject("vbscript.regexp")

 
    With RegEx
              .Global = True

        .Pattern = "[^d*\.\dd]"

    End With

        Set Myrange = ActiveSheet.Range("a1:a12")

    For Each C In Myrange

        C.Offset(0, 1).Activate
        C.Offset(0, 1) = RegEx.Replace(C.Value, "")
        ActiveCell.Select
        Selection.NumberFormat = "0.00"
    Next

    Set Myrange = Nothing
    Set RegEx = Nothing

End Sub