Lft = Obj.Left: Top = Obj.Top: Set U = Obj.Parent ' Normalement UserForm, Frame ou Page.
Do: UInsWidth = U.InsideWidth: UInsHeight = U.InsideHeight ' Le Multipage n'aura plus les dimensions
If TypeOf U Is MSForms.Page Then Set U = U.Parent ' intérieures, mais le Page n'avait que ça.