rapport word template avec les paragraphes corespondant aux feuilles du fichie excel

Re : rapport word template avec les paragraphes corespondant aux feuilles du fichie e

J'ai trouvé ce code mais le pb est qu'il me colle le contenu du presse papier plutôt que le contenu de la feuille 1 et 11.
Quelqu'un pourrait me dire ou se situe l'erreur.
Merci d'avance
Roger


Sub Excel_SNR()
Dim Wrd As Object
Set Wrd = CreateObject("Word.Application")
Dim AppWrd As Object
Dim i As Byte, j As Byte
On Error Resume Next

Set AppWrd = Wrd.Documents.Add
Wrd.Visible = True

Application.ScreenUpdating = False
Sheets("feuil1").UsedRange.Copy
Wrd.Selection.Paste

For j = 1 To 6 ' redimensionner le 1er tableau copié dans word
With Wrd.Selection
.Tables(1).Columns(j).Width = 30
End With
Next j

For i = 1 To 5 ' inserer 5 lignes vides
Wrd.Selection.TypeParagraph
Next i

Sheets("feuil11").UsedRange.Copy ' copier le tableau de la 2eme feuille
Wrd.Selection.Paste

Application.ScreenUpdating = True
Application.CutCopyMode = False