XL 2016 Cherche possesseur de MAC connaissant VBA

Sub TestUserform() ' Auteur RyuAutodidacte | 26-27/09/2023
Dim UfC, Cel As String
    Cel = "F4" ' Mettre l'adresse de la cellule voulue
    UfC = UserformOnCell(Cel)
     With UserForm1
    .Show 0 ' Show tjs à mettre avant le Left et Top
        .Left = UfC(0)
        .Top = UfC(1)
    End With
End Sub

Function UserformOnCell(Cel As String) As Variant ' Auteur RyuAutodidacte | 26-27/09/2023
Dim Adr, CheckCol As Integer, PtToPx, PtSpxY, CmdBRib, Z, L, T

    Adr = Split(ActiveWindow.VisibleRange.Address, ":")
    If (Range(Cel).Column >= Range(Adr(0)).Column And Range(Cel).Column <= Range(Adr(1)).Column And Range(Adr(0)).Row <= Range(Cel).Row) = False Then
        ActiveWindow.ScrollRow = 1
        ActiveWindow.ScrollColumn = 1
    End If
    CheckCol = Range(Adr(0)).Column
    If CheckCol <= Range(Cel).Column Then
        ActiveWindow.ScrollColumn = CheckCol
        CheckCol = Range(Cel).Column - CheckCol + 1
    Else
        CheckCol = Range(Cel).Column
    End If
    
    PtToPx = 0.75
    PtSpxY = ActiveWindow.Panes(1).PointsToScreenPixelsY(0) * PtToPx
    CmdBRib = CommandBars("ribbon").Height
    
    With ActiveWindow
        Z = .Zoom / 100
        L = (.Left + Cells(Range(Cel).Row, CheckCol).Left + 21) * Z - ((.Left - 1) * (Z - 1))
        T = PtSpxY + (Range(Cel).Top * Z) + CmdBRib / 4
    End With
    
    UserformOnCell = Array(L, T)
End Function

Const addr = "F4"
Sub test()
    Dim PaN, cel As Range, ptopx#
    Set cel = Range(addr)
    ptopx = 0.75
     ' au cas ou la cellule  ne serait pas dans la active pane
    With ActiveWindow
    '***********************************************************
      Set PaN = .ActivePane
        If Intersect(PaN.VisibleRange, cel) Is Nothing Then
            Set PaN = Nothing
            For i = 1 To .Panes.Count
                If Not Intersect(.Panes(i).VisibleRange, cel) Is Nothing Then Set PaN = .Panes(i)
            Next
        End If
   '*********************************************************************
     If PaN Is Nothing Then MsgBox "la cellule n'est pas visible  à  l'ecran ": Exit Sub
       l = PaN.PointsToScreenPixelsX(cel.Left) * ptopx
        t = PaN.PointsToScreenPixelsY(cel.Top) * ptopx
    End With
     With UserForm1
        .Show 0
        .Left = l
        .Top = t
    End With
end Sub

Sub test()
    With Application
        .WindowState = xlNormal
        .Left = 100
        .Top = 100
        .Width = 800
        .Height = 600
        With ActiveWindow.ActivePane
            l = .PointsToScreenPixelsX(0)
            h = .PointsToScreenPixelsY(0)
        End With

        MsgBox "app.left :" & .Left +19 & vbCrLf & "app.top : " & .Top +19 & vbCrLf & _
               "app.left en pixel : " & l & vbCrLf & "app.top en pixel : " & h

    End With

End Sub

Sub test()
    With Application
        .WindowState = xlNormal
        .Left = 100
        .Top = 100
        .Width = 800
        .Height = 600
        With ActiveWindow.ActivePane
            l = .PointsToScreenPixelsX(0)
            h = .PointsToScreenPixelsY(0)
        End With

        MsgBox "app.left :" & .Left + 19 & vbCrLf & "app.top : " & .Top + 19 & vbCrLf & _
               "app.left en pixel : " & l & vbCrLf & "app.top en pixel : " & h

        MsgBox (.Left + 19.25) & "/0.75" & " = " & (.Left + 19.25) / 0.75

    End With

End Sub

Const addr = "F4"
Sub test()
    Dim PaN, cel As Range, ptopx#
    Set cel = Range(addr)
    ptopx = 0.75
     ' au cas ou la cellule  ne serait pas dans la active pane
    With ActiveWindow
    '***********************************************************
      Set PaN = .ActivePane
        If Intersect(PaN.VisibleRange, cel) Is Nothing Then
            Set PaN = Nothing
            For i = 1 To .Panes.Count
                If Not Intersect(.Panes(i).VisibleRange, cel) Is Nothing Then Set PaN = .Panes(i)
            Next
        End If
   '*********************************************************************
     If PaN Is Nothing Then MsgBox "la cellule n'est pas visible  à  l’écran ": Exit Sub
       l = PaN.PointsToScreenPixelsX(cel.Left) * (ptopx / 1.022)
        t = PaN.PointsToScreenPixelsY(cel.Top) * ptopx
    End With
     With UserForm1
        .Show 0
        .Left = l
        .Top = t
    End With
End Sub