Dim sTemp As String Dim aLignes() As String Dim aDonnée() As String Dim r As Long Dim t As Long sTemp = ActiveDocument.TablesOfContents(1).Range.FormattedText aLignes = Split(sTemp, vbCr) For r = LBound(aLignes) To UBound(aLignes) aDonnée = Split(aLignes(r), vbTab) For t = LBound(aDonnée) To UBound(aDonnée) Debug.Print "Ligne "; r, "Texte : "; t, aDonnée(t) Next t Next r