Sub test()
Dim Feuille As Worksheet, Cellule As Range
For Each Feuille In ThisWorkbook.Worksheets
On Error Resume Next
For Each Cellule In Feuille.Cells.SpecialCells(xlTextValues)
Cellule = Replace(Cellule, Chr(10), " ")
Next
On Error GoTo 0
Next
End Sub