Sub SupSautLigne()
Application.ScreenUpdating = False
Dim Cel As Range
For Each Cel In Selection
Cel.Value = Replace(Cel.Value, Chr(10), "")
Next
End Sub
Sub SupSautLigne()
Application.ScreenUpdating = False
Dim Cel As Range
For Each Cel In Selection
Cel.Value = Replace(Cel.Value, Chr(10), "")
Next
End Sub
Sub SansSautLigne()
Dim Cellule As Range
On Error Resume Next
Set Cellule = Application.InputBox(prompt:="Sélectionner une cellule de la colonne à traiter...", Type:=8)
On Error GoTo 0
If Cellule Is Nothing Then MsgBox "Abandon.", vbCritical: Exit Sub
Cellule.Cells(1, 1).EntireColumn.Replace what:=vbLf, replacement:="", lookat:=xlPart
End Sub