Bonjour,
J'ai trouvé sur ce forum un petit programme pour enlever les sauts de ligne qui fonctionne très bien. Désolé je voulais poster apres la discussion mais maintenant je le retrouve plus...

Donc voici la bete:
Sub Macro2()

Dim old_text As String
Dim new_text As String

ActiveCell.SpecialCells(xlLastCell).Select
DerCell = ActiveCell.Address
Range("A1:" & DerCell).Select

For Each Cellule In Range("A1:" & DerCell)
If Cellule.Value <> "" Then
old_text = Cellule.Value
new_text = Replace(old_text, Chr(10), " ") 'élimine les sauts de ligne

Cellule.Value = new_text
End If
Next
MsgBox "Fini!"
End Sub

Mais le probleme c'est que dans mes cellules excel j'ai du texte comme ca:
"Portrait de l'artiste dit Le Désespéré"
ou "Portrait de l'artiste" et " Le Désespéré" sont en rouge et italique
et "dit" en noir normal.
Apres l'execution du programme j'obtiens "Portrait de l'artiste dit Le Désespéré" avec tout en rouge et italique!
En fait lorsqu'il doit lire la cellule il prend le format du premier mot et l'applique sur le reste de la cellule...
Du coup s'il y a plusieurs couleurs ou format il uniformise la cellule selon la couleur et le format du premier mot.
Est ce possible d'éviter ce désagrément?
Merci

Configuration: Windows XP
Firefox 2.0.0.9