[excel]Comment supprimer des retours chariot

Sub Suppr_Ret_Char()

'NFR 25/08/09

'Cette macro supprime les retours chariot dans la zone sélectionnée

Selection.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

End Sub

Sub quelcaractere()
Dim old_text As String
Dim new_text As String

For i = 2 To 15444
    
    If Range("AD" & i).Value <> "" Then
    old_text = Range("AD" & i).Value
    new_text = Replace(old_text, Chr(10), " - ")
    new_text = Replace(new_text, Chr(13), " - ")
    new_text = Replace(new_text, "  ", " ")
    Range("AC" & i).Value = new_text
    End If
Next
End Sub