🚀 go-pugleaf

Finally, I got this work, with the precious help of you all! Thanks!
Here is the complete routine. Note that I must take into account the page position into the spread. Perhaps there is a better way to work?

The calculation of the recto/verso placements of the textframes could be set outside the Pages loop since, usually, this type of Footnotes will be for a "regular" book.

I will try to indent my codes here correctly!

Dim k,verso, MarginB, MarginL, MarginR, FrameHeight, P_Width, P_Height, NombrePages
Set myID = CreateObject("InDesign.Application.2.0")
Set myDoc = MyID.ActiveDocument
Set myLib = myID.open("f:\production\Librairie g�n�rale.indl")
Set CDN= myLib.Assets.Item("Note")

With MyDoc

      	.ViewPreferences.HorzMeasurementUnits= idMSInches
      	.ViewPreferences.VertMeasurementUnits =idMSInches
      	P_Width=.DocumentPreferences.PageWidth
      	P_Height=.DocumentPreferences.PageHeight
      	NombrePages = .Pages.Count
      End With	





For k =1 to NombrePages

      	Set myPage = myDoc.Pages.Item(k)
      	MyPageBounds=MyPage.Bounds
      	'Place the asset in the Document
      	CDN.Place myPage
      	'Select the asset
      	Set DocCDN = myID.Selection.Item(1)






      	'Move it to the correct page.
      	DocCDN.Move myPage






      	'Get the Margins of the pages
      	MarginB=myPage.MarginPreferences.MarginBottom
      	MarginL=myPage.MarginPreferences.MarginLeft
      	MarginR=myPage.MarginPreferences.MarginRight






      	'Get the TextFrame GeometricBounds	
      	myBounds = DocCDN.GeometricBounds
      	myFrameHeight = myBounds(2)-myBounds(0)






      	'Has to take into account Spread
      	verso = k mod 2
      	Select Case verso
      		Case 0 'Recto! Weird enough, this doesn't affect Page 1!
      			myBounds(0) = P_Height- MarginB - myFrameHeight
      			myBounds(1) = P_Width+MarginL
      			myBounds(2) = P_Height-MarginB
      			myBounds(3) = P_Width*2 - MarginR
      		Case Else
      			myBounds(0) = P_Height- MarginB - myFrameHeight
      			myBounds(1) = MarginL
      			myBounds(2) = P_Height-MarginB
      			myBounds(3) = P_Width - MarginR
      	End Select
      	DocCDN.GeometricBounds = myBounds






      	'Label it
      	DocCDN.Label = "CDN" & LTrim(k)
      	'Thread it
      	If k>1 Then
      		Set prvDocCDN =MyDoc.TextFrames.Item("CDN"&LTrim(k-1))
      		DocCDN.PreviousTextFrame= prvDocCDN
      	End if





Next
MsgBox ("Finish")