VBA Fusionner des cellules avant ou après l'export dans word

[Matt51100]

Bonjour à tous,

Mon problème du jour est le suivant :
Dans le fichier ci-joint j'ai un tableau en forme de planning avec les jours de la semaine (en gris la demi journée de repos).
une fois ce planning rempli, il est exporté dans word par le code suivant :

Sub EnvoyerTableauxExcelVersWord()

Sheets("Planning travail").Activate

Dim DocWord As Word.Document
Dim AppWord As Word.Application

Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add

With AppWord.Selection

    .Application.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    .TypeText Text:="SEMAINE " & semaine & "/" & Year(Date)
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
    .MoveLeft Unit:=wdCharacter, Count:=50, Extend:=wdExtend
    .Font.Size = 16
    .Font.Bold = wdToggle
   
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth150pt
        End With
        
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth150pt
        End With
        
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth150pt
        End With
        
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth150pt
        End With
        
        With .Borders
            .DistanceFromTop = 0
            .DistanceFromLeft = 0
            .DistanceFromBottom = 0
            .DistanceFromRight = 0
        End With
  
  
    .Application.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
  End With


Dim i As Single
Dim aa As Single
Dim bb As Single

aa = 3
bb = 7

For i = 1 To nbrtec Step 1

Range(Cells(aa, 2), Cells(bb, 6)).Copy
 With AppWord.Selection
    .Paste
    .Tables(1).Rows.Alignment = wdAlignRowCenter
    .Tables(1).AutoFitBehavior (wdAutoFitFixed)
    .Tables(1).Range.Cells(3).WordWrap = True
    .Tables(1).Range.Cells(4).WordWrap = True
   
    
        End With
        
        If i = 4 Or i = 8 Or i = 12 Then
         With AppWord.Selection
         .InsertBreak Type:=wdTextWrappingBreak
         .InsertBreak Type:=wdTextWrappingBreak
         .InsertBreak Type:=wdTextWrappingBreak
         End With
         End If
aa = aa + 6
bb = bb + 6

Next i

End Sub

J'aimerais fusionner les cellules représentant les demi journées de chaque jour quand la personne n'a pas de demi journée de repos (Ex: dans le fichier fourni, fusionner les celules du "matin" et de "l'après-midi" pour les jours suivants : Mardi, Mercredi, Jeudi, Vendredi).

Problème : si je le fais sous excel avant l'exportation dans word, la fusion des cellules ne garde pas tous les éléments contenus dans les deux cellules.
Une fois exporté dans Word, je ne sais pas comment faire référence aux cellules à fusionner et comment conditionner ces fusions.

Merci d'avance.

A+, Matt.

Problème : sous excel la fusion de cellule