Bonjour,
Je ferais comme ça :
Afficher les formules
Éditions—Rechercher [Chr(10)-Remplacer (chaîne)]
                                      ^ ou autrement
Ça s'enregistre sous forme de macro.

J'ai trouvé

a titre d'info:

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

Bonjour,
Merci pour l'astuce, ça m'a bien rendu service, car en exportant les données vers un fichier texte, il y avait autant de lignes supplémentaires que de retours chariot.
Albans

Merci pour cette astuce.
Elle me rend beaucoup service dans mes extractions sous excel criblées de retour chariot dans tous les sens.

Bonjour à tous,

Je me suis posé la même question que vous, à savoir : comment supprimer les retour chariot ?
Voici la macro que je vous propose :

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