XL 2016 affichage userform avec 2 ou + ecrans

        With ActiveWindow
            If .SplitRow = 0 Then
                PosRow = 1
            Else
                If Rng.Row <= .SplitRow Then PosRow = 2 Else PosRow = 3
            End If
        
            If .SplitColumn = 0 Then
                PosColumn = 1
            Else
                If Rng.Column <= .SplitColumn Then PosColumn = 4 Else PosColumn = 5
            End If

            Select Case PosRow * PosColumn
                Case 1, 2, 4, 8
                    Set Pan = .Panes(1)
                Case 3, 5, 10
                    Set Pan = .Panes(2)
                Case 12
                    Set Pan = .Panes(3)
                Case 15
                    Set Pan = .Panes(4)
            End Select
        End With

Function getpane(cell As Range)
    With ActiveWindow
        If .FreezePanes = True Then
            For i = 1 To .Panes.Count
                If Not Intersect(cell, .Panes(i).VisibleRange) Is Nothing Then getpane = .Panes(i).Index
            Next
        Else
            getpane = .ActivePane.Index
        End If
    End With
End Function

'**********************************************************************
'patricktoulon
'demonstration du principe ULTRA SIMPLIFIE
'tu peux faire la foncion << Ppx >> avec les api si tu veux
'RESTE PLUS QU'A RAJOUTER MA FONCTION << ECART >> AVEC L API DWMAPI.DLL

Function PpX()
'ma méthode
' With ActiveWindow.Panes(1): PpX = (.PointsToScreenPixelsX(72) - .PointsToScreenPixelsX(0)) / 72: End With
'ou
'la methode api 'blablabla....
'ou
'pour l'exemple vite fait comme  ça ,on l'ecrit en dur
    PpX = 1.33333333333333
End Function


Function getposition(cell As Range)
    Dim PaN As Pane, ZoomX#, i, G#, D#
    With ActiveWindow
        If .FreezePanes = True Then
            For i = 1 To .Panes.Count
                If Not Intersect(cell, .Panes(i).VisibleRange) Is Nothing Then Set PaN = .Panes(i)
            Next
        Else
            Set PaN = .ActivePane
        End If
        ZoomX = .Zoom / 100
        G = (PaN.PointsToScreenPixelsX(cell.Left) / PpX) * ZoomX
        D = (PaN.PointsToScreenPixelsY(cell.Top) / PpX) * ZoomX
    End With
    getposition = Array(G, D)
End Function

'ET C'EST TOUT

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim pos
    pos = getposition(Target)
    With UserForm1
        .StartUpPosition = 0
        .Left = pos(0): .Top = pos(1)
        .Show 0
    End With
End Sub