userform avec listes déroulantes et cases à cocher

Private Sub UserForm_Activate()
Sheets("Donnees").Range("I2:" & Sheets("Donnees").Range("I" & Rows.Count).End(xlUp).Offset(1, 0).Address).Clear 'effacer les critères en feuil1, colonne I
' La variable chaîne récupère les noms de service, séparés par une virgule
tabl = ""  ' Initialise la variable chaîne
With ListBox1 ' Les actions suivantes s'appliquent à la liste déroulante
  .Height = 12 ' Initialisation de la hauteur du contrôle ListBox1 à 12
  For n = 2 To Feuil1.Range("B" & Rows.Count).End(xlUp).Row ' Boucle qui lit les cellules de la colonne B
    If InStr(tabl, Feuil1.Cells(n, 2).Value) = 0 Then ' Si le nom dans la cellule en cours de lecture n'est pas encore stocké dans tabl
      tabl = tabl & "," & Feuil1.Cells(n, 2).Value ' Elle s'y inscrit à la suite
      .AddItem Feuil1.Cells(n, 2).Value ' et elle s'ajoute dans la liste déroulante
      ' La condition suivante teste la position en pixels du bas de la liste déroulante
      ' Si elle est inférieure au bas du formulaire - 40, la hauteur de la liste augmente de 12 points
      ' (Si le nombre d'éléments de la liste augmente, les flèches de défilement verticales s'affichent)
      If .Top + .Height < UserForm1.Height - 40 Then
        .Height = .Height + 12 ' augmente la hauteur de la liste de 12 points
      End If
    End If
  Next
End With
End Sub

Private Sub UserForm_Activate()
Sheets("EmployeesDetails").Range("BI2:" & Sheets("EmployeesDetails").Range("BI" & Rows.Count).End(xlUp).Offset(1, 0).Address).Clear 'effacer les critères en feuil1, colonne BI
tabl = ""
With ListBox1
  .Height = 12
  For n = 2 To Feuil1.Range("T" & Rows.Count).End(xlUp).Row
    If InStr(tabl, "," & Feuil1.Cells(n, 20).Value) = 0 Then
      tabl = tabl & "," & Feuil1.Cells(n, 20).Value
      .AddItem Feuil1.Cells(n, 20).Value
      If .Top + .Height < UserForm1.Height - 40 Then
        .Height = .Height + 20
      End If
    End If
  Next
End With
End Sub

Option Explicit
Dim plage As Range, n& 'mémorisation des variables

Private Sub ListBox1_Change()
Dim t, cel As Range, filtre As Range
With ListBox1
  If n = 0 Then plage.EntireRow.Hidden = True
  n = n + IIf(.Selected(.ListIndex), 1, -1)
  If n = 0 Then plage.EntireRow.Hidden = False: Exit Sub
  t = .List(.ListIndex)
  For Each cel In plage
    If cel = t Then Set filtre = _
      Union(cel, IIf(filtre Is Nothing, cel, filtre))
  Next
  filtre.EntireRow.Hidden = Not .Selected(.ListIndex)
End With
End Sub

Private Sub UserForm_Initialize()
Dim d As Object, cel As Range
ActiveSheet.AutoFilterMode = False
Set plage = Range("A2", [A65536].End(xlUp))
If plage.Row = 1 Then Exit Sub
n = 0
Set d = CreateObject("Scripting.Dictionary")
For Each cel In plage
  d(cel.Value) = cel.Value
Next
With ListBox1
  .List = d.keys
  .Height = 13.3 * d.Count
  Me.Height = .Height + 25
End With
End Sub

With ListBox1
  .Height = 15 + 10 * d.Count
  Me.Height = .Height + 15
  .List = d.keys
End With