Pour les amateurs(trices) de macros .....

Sub ListeSansDoublons()
  For Each col In Array(4, 9, 14, 19, 24, 29, 34)
    Set mondico = CreateObject("Scripting.Dictionary")
    Set début = Cells(4, col)
    For Each c In Range(début, début.End(xlDown))
      mondico(c.Value) = ""
    Next c
    Range(début, début.End(xlDown)).ClearContents
    début.Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
  Next col
End Sub

Sub SupDoublonsColonneTradi()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  For Each col In Array(4, 9, 14, 19, 24, 29, 34)
    For i = Cells(65000, col).End(xlUp).Row To 4 Step -1
      If Cells(i, col) = Cells(i - 1, col) Then Cells(i, col).Delete Shift:=xlUp
    Next i
  Next col
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
End Sub

Sub SupprimeDoublons()
  Dim TabCol() As String
  Dim Ind As Integer, Dlig As Long, Lig As Long
  ' définir le tableau des colonnes - puet être fait autrement
  TabCol = Split("D,I,N,S,X,AC,AH", ",")
  ' Désactiver le calcul automatique
  Application.Calculation = xlCalculationManual
  ' Pour caque colonne
  For Ind = 0 To UBound(TabCol)
    ' Mémoriser le numéro de la dernière ligne
    Lig = 4: Dlig = Range(TabCol(Ind) & Rows.Count).End(xlUp).Row
    ' Pour chaque ligne, tant que nous sommes pas arrivé à la dernièe
    ' et que la cellule n'est pas vide
    Do While Lig <= Dlig And Range(TabCol(Ind) & Lig) <> ""
      ' Pour situer ou on se trouve dans le code
      ' pas nécessaire
      Range(TabCol(Ind) & Lig).Select
      ' Vérifier que la cellule suivante, n'est pas égale à celle ou on se trouve
      ' et que la cellule n'est pas vide
      Do While Range(TabCol(Ind) & Lig) = Range(TabCol(Ind) & Lig + 1) And Range(TabCol(Ind) & Lig) <> ""
        ' Si OUI, on supprime la cellule
        Range(TabCol(Ind) & Lig + 1).Delete shift:=xlShiftUp
      Loop
    Lig = Lig + 1
    Loop
  Next Ind
  ' Activer le calcul automatique
  Application.Calculation = xlCalculationAutomatic
End Sub