Dim OleObj As OLEObject
Dim Plage As Range
Set Plage = Range("B5:D9")
Set OleObj = ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8", _
Link:=False, DisplayAsIcon:=False)
With OleObj
.Left = Plage.Left
.Top = Plage.Top
.Width = Plage.Width
.Height = Plage.Height
End With