Sub Ajout_Renvoi_Ligne()
Application.ScreenUpdating = False
With [A3:A5] 'à adapter
.Replace " : ", "|", xlPart
.Replace vbCrLf, " "
.Replace vbCr, " "
.Replace vbLf, " "
.Name = "P" 'plage nommée
.Value = [TRIM(P)] 'formule matricielle pour SUPPRESPACE
.Replace ". ", "." & vbLf
.Replace "|", " : " 'restitution
.ColumnWidth = 255
.Rows.AutoFit
.Columns.AutoFit
End With
End Sub
Sub Supprimer_Paragraphe_vide()
Application.ScreenUpdating = False
With [C3:C5] 'à adapter
.Replace vbCrLf, vbLf, xlPart
.Replace vbLf & vbLf, vbLf
.Rows.AutoFit
End With
End Sub