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