Sub Supprlignes_entieres_doublons()
Application.ScreenUpdating = False
Dim MonDico As Variant: Set MonDico = CreateObject("Scripting.Dictionary")
NoPremLig = 5 'prem ligne de départ
NoDernLig = Cells(Rows.Count, "A").End(xlUp).Row 'dern ligne en colonne A
'
NoLig = NoPremLig
Do While NoLig <= NoDernLig
If Cells(NoLig, "A") <> "" Then
Var$ = ""
For C = 1 To 6 'collecte données sur 6 colonnes
Var$ = Var$ & Cells(NoLig, C)
Next
If Not MonDico.Exists(Var$) Then 'ajoute
MonDico.Add Var$, Var$: NoLig = NoLig + 1
Else 'suppr car existe déjà
Rows(NoLig).EntireRow.Delete
End If
Else
NoLig = NoLig + 1
End If
Loop
Set MonDico = Nothing
Application.ScreenUpdating = True
End Sub