Comapraison et suppression

Sub supprimer_lignes_en_double()
    
    Dim plage_utilisée As Range
    Dim index_colonnes As String
    
    Set plage_utilisée = ActiveSheet.UsedRange
    index_colonnes = Empty
    For Each colonne In plage_utilisée.Columns
        If index_colonnes = Empty Then
            index_colonnes = colonne.Column
        Else
            index_colonnes = index_colonnes & "," & colonne.Column
        End If
    Next
    plage_utilisée.RemoveDuplicates Columns:=Array(index_colonnes)


End Sub 
 

Sub supprimer_doublons()
    
    'plage utilisée
    Set plage_utilisée = ActiveSheet.UsedRange
    With plage_utilisée
    
        'initialisation ligne après sous-total précédent
        Set ligne_après_sous_tot_prec = .Rows(2).EntireRow
        'recherche dernère cellule avant sous-total
        Set cell_sous_tot_init = .Find("SUBTOTAL")
        Set cell_sous_tot = cell_sous_tot_init
        Do
           
            'affectation ligne avant sous-total
            Set ligne_avant_sous_tot = cell_sous_tot.EntireRow.Offset(-1)
            
            'affectation plage doublons
            Set plage_doublons = .Range(ligne_après_sous_tot_prec, ligne_avant_sous_tot)
            'suppression doublons
            plage_doublons.RemoveDuplicates Columns:=1
            
            'affectation ligne après sous-total précédent
            Set ligne_après_sous_tot_prec = cell_sous_tot.EntireRow.Offset(1)
            'recherche dernère cellule suivante avant sous-total
            Set cell_sous_tot = .FindNext(cell_sous_tot)
        
        Loop Until cell_sous_tot.Address = cell_sous_tot_init.Address
        
        'suppression lignes vides après suppression doublons
        On Error Resume Next
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete

    End With

End Sub