'Option Explicit
#If vba7 Then
Private Declare PtrSafe Function GetDC& Lib "user32.dll" (ByVal hwnd&)
Private Declare PtrSafe Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&)
#Else
Private Declare Function GetDC& Lib "user32.dll" (ByVal hwnd&)
Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&)
#End If
Private Sub UserForm_Initialize()
'Stop
Dim S#, Y#, w#, h#, F As Worksheet
ActiveWindow.Zoom = 100
S = GetDeviceCaps(GetDC(0), 88) / 72
Y = GetDeviceCaps(GetDC(0), 90) / 72
With Me
.StartUpPosition = 0
.Left = ActiveWindow.PointsToScreenPixelsX(ActiveCell.Left * S) * 1 / S
.Top = ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top * Y) * 1 / Y
End With
Set F = Sheets("Feuil2")
With ListBox1
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
.List = F.Range("A5", F.Cells(Rows.Count, "A").End(xlUp)).Value
End With
End Sub