VBA - Bouton supprimer doublons + cellules vides d'une colonne

Bonjour à tous,

Après plusieurs essais non concluant, je me tourne vers vous. Je possède un fichier avec une colonne listant des noms. Cette colonne peut avoir des trous et/ou des doublons. J'aimerais créer un bouton qui puisse via VBA supprimer les cellules vides et les doublons (en un click). Voyez-vous une solution?

(Pour info, cette colonne de noms commence ligne 7)

Merci énormément!

Bonjour,

Option Explicit

Sub SupprimerLesDoublons()

Dim DerniereLigne As Integer
Dim AireATraiter As Range

    With ActiveSheet
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         If DerniereLigne = 7 Then Exit Sub
         Set AireATraiter = .Range(.Cells(7, 1), .Cells(DerniereLigne, 1))
         AireATraiter.RemoveDuplicates Columns:=1, Header:=xlYes
         AireATraiter.HorizontalAlignment = xlLeft

         .Sort.SortFields.Clear
         .Sort.SortFields.Add2 Key:=AireATraiter, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
         With .Sort
              .SetRange AireATraiter
              .Header = xlYes
              .MatchCase = False
              .Orientation = xlTopToBottom
              .SortMethod = xlPinYin
              .Apply
        End With
    End With

    Set AireATraiter = Nothing

End Sub

Voir le bouton rouge dans la barre d'accès rapide.

Excellent, exactement ce que je cherchais!! Impressionnant ce bouton dans la barre d'accès rapide! merci!