Copier excel et coller dans word

Bonjour
Je cherche simplement a copier une feuille excel dans un document Word.
j'ai isolé les cellules de la feuilles, j'ai un signet dans le document word.
Mais rien ne marche, la copie ne se fait pas !!!
ci dessous mon code:

'Vérification si la feuille est totalement vide
If Ws.UsedRange.Cells.Address = "$A$1" And _
IsEmpty(Ws.Range("A1")) Then
Else
With Ws 'Identifie le numéro de ligne
NumLigne = .Cells.Find("*", .Range("A1"), , , xlByRows,Previous).Row
'Identfie le numéro de colonne
NumCol = .Cells.Find("*", .Range("A1"), , , xlByColumns, Previous).Column
Set DerniereCellule = .Cells(NumLigne, NumCol)
End With

Copie des données dans le presse papier
Workbooks(CDPExcel).Worksheets(NumOpt).Range(Workbooks(CDPExcel).Worksheets(NumOpt).Cells(1, 1), _
Workbooks(CDPExcel).Worksheets(NumOpt).Cells(3 + NbLigne, NbCol)).Select
Selection.Copy

' j'active mon doc word
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find '
.ClearFormatting
.Text = "TAB" & NumOpt <-- mon signet a rechercher


With .Replacement
'.LeftIndent = CentimetersToPoints(-2.25)
'.RightIndent = CentimetersToPoints(-2.5)
.ClearFormatting
.Text = ""
End With

With WdApp
.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
wdInLine, DisplayAsIcon:=False
WdDoc.InlineShapes(1).Height = 172.9 'Règle la hauteur dans Word
WdDoc.InlineShapes(1).Width = 453.55 'Règle la largeur dans Word
End With.Execute Replace:=wdReplaceAll, _
Format:=True, MatchWholeWord:=True
End With

voila , pas terrible je trouve, mais je suis debutant
si qq un peux m'aider
merci
jc