Supprimer caractères

Option Explicit
Sub a()
    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
                      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                      ReplaceFormat:=False
    Selection.Replace What:="-", Replacement:=" ", LookAt:=xlPart, _
                      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                      ReplaceFormat:=False
End Sub

Option Explicit
Sub Caractères_supprimer()
    With Columns("a:a").SpecialCells(xlCellTypeConstants)
        .Replace What:="""", Replacement:="", LookAt:=xlPart
        .Replace What:="-", Replacement:=" ", LookAt:=xlPart
    End With
End Sub