XL 2019 Afficher dans une ListBox VBA

Private Sub UserForm_Initialize()
  Dim DerLig As Long
  Dim f
  Set f = Sheets("Adresses")
  DerLig = f.Range("B" & Rows.Count).End(xlUp).Row
  Me.Cbx_NumClt.RowSource = "'Adresses'!B3:B" & DerLig
  DerLig = f.Range("C" & Rows.Count).End(xlUp).Row
  Me.ListBox1.List = f.Range("B2:I" & DerLig).Value
  AffDonnées (DerLig + 1)
End Sub

73 pt;73 pt;130 pt;0 pt;73 pt

Private Sub CommandButton1_Click()
    If TextBox1.Value = "" Then
        If TextBox2.Value = "" Then
            MsgBox "Please Input the User Name and the Password"
        Else
            MsgBox "Please Input the User Name"
        End If
    ElseIf TextBox1.Value = "admin" Then
        If TextBox2.Value = "" Then
            MsgBox "Please Input the Password"
        ElseIf TextBox2.Value = "1234" Then
            Me.Hide: Application.Visible = True
        Else
            MsgBox "Please Input the right User Name and the right Password"
        End If
    Else
        If TextBox2.Value = "" Then
            MsgBox "Please Input the Password"
        Else
            MsgBox "Please Input the right User Name and the right Password"
        End If
    End If
End Sub

Private Sub CommandButton2_Click()
    ThisWorkbook.Application.Quit
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Application.Quit
End Sub