Bonsoir Petit Ange
Voici un code qui devrait te convenir (le fichier Excel étant placé dans le même répertoire que le RTF) :
Option Explicit
Const TheRTFFile As String = "MonRichTextFormat.rtf"
Sub ImportRTF()
Dim TheRecord As String
Dim Container As Variant
Dim i As Integer, ii As Byte, iii As Byte
Dim L As Integer
Dim ThePath As String
ThePath = ThisWorkbook.Path & "\"
L = ActiveSheet.Range("A65536").End(xlUp).Row + 1
i = L
Open ThePath & TheRTFFile For Input As #1
Do While Not EOF(1)
Line Input #1, TheRecord
Container = Split(TheRecord, Chr(9)) '<< Chr(9) = VbTab // Chr(59) si on veut le ";" comme séparateur
For ii = 1 To UBound(Container)
With ActiveSheet
.Cells(i, ii) = Container(iii)
End With
Next ii
i = i + 1
Loop
Close #1
End Sub
Bonne Soirée
@+Thierry