Vba excel filtre / listbox ...

Sub PrepaListe()

  Dim Lig_Deb           As Long
  Dim DerLig            As Long
  Dim Col               As String
  Dim Feuille           As String
  Dim CelluleCourante   As Range
  Dim CelluleSuivante   As Range
  Dim FF                As Worksheet
  
  ' PARAMETRES A ADAPTER
  '----------------------------------------------------------------------------
  Lig_Deb = 3         ' n° de la première ligne de données filtrées
  Col = "A"           ' colonne de données filtrées
  Feuille = "Feuil1"  ' nom de la feuille de données
  '----------------------------------------------------------------------------
  
  Application.ScreenUpdating = False
  
  On Error Resume Next
    Worksheets("Param").Activate
    If Err.Number = 9 Then
      Worksheets.Add
      ActiveSheet.Name = "Param"
    End If
  On Error GoTo 0
  
  Sheets("Param").Cells.ClearContents
  Set FF = Sheets(Feuille)
  DerLig = FF.Cells(65536, Col).End(xlUp).Row
  
  FF.Range(Col & Lig_Deb & ":" & Col & DerLig).Copy
  Cells(1, 1).Select
  ActiveSheet.Paste
  Selection.Sort Key1:=Range("A1"), _
                       Order1:=xlAscending, _
                       Header:=xlNo
  Application.CutCopyMode = False
  
  Set CelluleCourante = Range("A1")
  Do While Not IsEmpty(CelluleCourante)
      Set CelluleSuivante = CelluleCourante.Offset(1, 0)
      If CelluleSuivante.Value = CelluleCourante.Value Then
          CelluleCourante.EntireRow.Delete
      End If
      Set CelluleCourante = CelluleSuivante
  Loop
  
  On Error Resume Next
    ActiveWorkbook.Names("PlageListBox").Delete
  On Error GoTo 0
  DerLig = Range("A65536").End(xlUp).Row
  ActiveWorkbook.Names.Add Name:="PlageListBox", _
                           RefersToR1C1:="=Param!R1C1:R" & DerLig & "C1"
  
  Application.ScreenUpdating = True

End Sub

Private Sub UserForm_Initialize()

  Dim Lig               As Long
  Dim Col               As String
  Dim ValeurCourante    As String
  Dim ValeurPrécédente  As String
  
  Lig = 3
  Col = "A"
  ValeurPrécédente = ""
  ValeurCourante = Cells(Lig, Col).Value
  Do While ValeurCourante <> ""
    If ValeurCourante <> ValeurPrécédente Then
      ListBox1.AddItem ValeurCourante
    End If
    Lig = Lig + 1
    ValeurPrécédente = ValeurCourante
    ValeurCourante = Cells(Lig, Col).Value
  Loop
  
End Sub

Dim CelluleCourante As Range
Dim CelluleSuivante As Range
  
Set CelluleCourante = Range("A3")
Do While Not IsEmpty(CelluleCourante)
  Set CelluleSuivante = CelluleCourante.Offset(1, 0)
  If CelluleSuivante.Value = CelluleCourante.Value Then
    CelluleCourante.EntireRow.Delete
  End If
  Set CelluleCourante = CelluleSuivante
Loop

ActiveSheet.AutoFilterMode = False
Columns("A:A").AutoFilter