Private Sub showW_Click()
With uf2
Dim L1#, T1#, OperX&, OperY&
If Not .Visible Then
ddecx = 0: ddecy = 0 '1er lancement
.StartUpPosition = 0
With ActiveWindow
PtoPx = (.ActivePane.PointsToScreenPixelsY(72) - .ActivePane.PointsToScreenPixelsY(0)) / 72 'coeff point to pixel
Z = .Zoom / 100
L1 = (.ActivePane.PointsToScreenPixelsX(Int([b3].Left)) / PtoPx) * Z 'placement partie mobile
T1 = .ActivePane.PointsToScreenPixelsY(Int([b3].Top)) / PtoPx * Z
End With
.Left = L1
.Top = T1
.Show 0
ddecx = L1
ddecy...