RTF versus Excel

J'ai une macro qui converti un texte RTF illisible en texte lisible.

Celle-ci fonctionne très bien pour une cellule.

Je voudrais que celle-ci fonctionne sur une colonne de cellules.

Je sais pas comment faire.

Quelqu'un peux m'aider.

Merci.

Sub rtfToText()

With CreateObject("RICHTEXT.RichtextCtrl") ' or add reference to Microsoft Rich Textbox Control for early binding and With New RichTextLib.RichTextBox

.SelStart = 0 ' needs to be selected

.TextRTF = Join(Application.Transpose(Cells.CurrentRegion.Columns(1)))

[C1] = .Text ' set the destination cell here

End With

End Sub

bonjour

joins un fichier exemple

Voilà