L'interet c'est que l'on peut filtrer de l'information selon des criteres sous Excel et pas sous word et que les copier coller de tableau de word à Excel sont catastrophiques///
j'ai fait une chti macro qui fusionne les lignes de chaqu'une colonne par colonne dans une selection donnée....::

voici la macro ok pour les colonnes
Sub FUSIONNER()
'
' FUSIONNER Macro
'
' Touche de raccourci du clavier: Ctrl+q

Dim Colonne As Long
Dim Ligne As Long
Dim ColonneFin As Long
Dim LigneFin As Long
Dim ResultCell As Variant
 
With Selection
    Ligne = .Cells(1).Row
    LigneFin = .Cells(.Cells.Count).Row
    Colonne = .Cells(1).Column
    ColonneFin = .Cells(.Cells.Count).Column
End With
 
For i = Colonne To ColonneFin
    ResultCell = ""
    For j = Ligne To LigneFin
        Range(Chr(64 + i) & CStr(j)).Select
        ch = Chr(10)
        If j = LigneFin Then ch = ""
        ResultCell = ResultCell & ActiveCell.FormulaR1C1 & ch
        ActiveCell.FormulaR1C1 = ""
    Next j
   Range(Chr(64 + i) & CStr(Ligne), Chr(64 + i) & CStr(j - 1)).Merge
   Range(Chr(64 + i) & CStr(Ligne), Chr(64 + i) & CStr(j - 1)).WrapText = True
    Range(Chr(64 + i) & CStr(Ligne)).FormulaR1C1 = ResultCell
    Next i
Range(Chr(64 + Colonne + 1) & CStr(Ligne), Chr(64 + ColonneFin) & CStr(LigneFin)).Select
'Selection.Delete Shift:=xlToLeft
End Sub