Comment copier un tableau word biscornu dans excel

[jeanlukv]

bonjour,
apres avoir pacouru le forum j'ai vu quelques choses interressante mais pas completement.
voila je voudrai pouvoir transferer par macro excel le contenu d'un document word dans une feuille excel.
le document word se compose de plusieurs tableaux similaires (le nombre de tableaux n'est pas systematiquement le meme).
chaque lignes du tableau peux contenir du texte sur plusieurs lignes (et je voudrait que chaque ligne du tableau = une ligne excel).
Parmi le forum j'ai bien trouvé le code suivant pour copier une ligne du tableau dans une ligne excel :
For i = 1 To DocWord.Tables(1).Rows.Count
For j = 1 To DocWord.Tables(1).Columns.Count
Cible = DocWord.Tables(1).Columns(j).Cells(i)
ThisWorkbook.Worksheets(NomScenario).Cells(i, j) = Application.WorksheetFunction.Substitute(Cible, vbCr, vbLf)
ThisWorkbook.Worksheets(NomScenario).Cells(i, j) = Left(ThisWorkbook.Worksheets(NomScenario).Cells(i, j), Len(ThisWorkbook.Worksheets(NomScenario).Cells(i, j)) - 1)
Next j
Next i

Cela marche tres bien si le tableau à des largeurs de colonne similaire or mes tableaux se presente de la maniere suivante :
-----------------------
|...|..................|
-----------------------
|...|....|....|........|
-----------------------
|...|....|....|........|
-----------------------
|...|....|....|........|
-----------------------
|...|..................|
-----------------------

comme vous pouvais le voir ils sont plutot biscornu ;-).
quelqu'un aurait il une idée pour copier ce tableau sous excel.

merci d'avance à ceux qui pourrons m'aider