Sub remplacerCaracteres()
Set plage = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
plage.Replace What:="~?", Replacement:="µ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
plage.Replace What:="¥", Replacement:="±", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
plage.Replace What:="~?", Replacement:="°", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub