Un exemple, la plage est à adapter bien sûr :
Note : le retour de ligne correspond au caractère ascii no.10.
VB:
Sub Twidelatwit()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("a1:B37")
c = Replace(c, Chr(10), "")
Next c
Application.ScreenUpdating = True
End Sub