VBA Excel vers Word

[dtctarbes]

Bonjour,
Je souhaite copier un long tableau Excel (qui est fractionné en plusieurs tableaux par des lignes où les cellules sont vides) dans Word en VBA.
La copie se passe bien mais je souhaite que dans Word les lignes vides soient remplacées par des sauts de page (un seul saut de page entre deux tableaux) :
Si une ligne vide entre deux tableaux = un saut de page.
Si deux lignes vides entre deux tableaux = un saut de page.
Si trois lignes vides entre deux tableaux = un saut de page.
Merci de votre aide.

Le code :

Sub page_portrait()
Set wa = CreateObject("word.application")
' creation de la page word et plage de cellules à copier
With wa
.Visible = True
.documents.Add
Range("A2:M29").Copy
.Selection.Paste
.WordBasic.TogglePortrait Tab:=3
End With
' notification des marges
With ww.ActiveDocument.PageSetup
.TopMargin = wa.CentimetersToPoints(0.6)
.BottomMargin = wa.CentimetersToPoints(0.6)
.LeftMargin = wa.CentimetersToPoints(0.6)
.RightMargin = wa.CentimetersToPoints(0.6)
End With

Application.CutCopyMode = False
End Sub