Dim OleObj As OLEObject
Dim NfDoc As String
...
' le fichier est créé et localisé (NfDoc)
' un nom de plage (TEXT) désigne l'emplacement de l'objet
' je ne définis pas la hauteur: elle s'ajuste automatiquement avec l'affichage du texte
...
Set OleObj = ActiveSheet.OLEObjects.Add(Filename:=NfDoc, Link:=True, DisplayAsIcon:=False)
DoEvents
With OleObj
.Left = ActiveSheet.Range("TEXT").Left
.Top = ActiveSheet.Range("TEXT").Top
.Width = ActiveSheet.Range("TEXT").Width
.Placement = xlMove
End With
Cells(1, 1).Select
...