doublons

Sub Bouton1_QuandClic()
Dim plage As Range, c As Range
Dim tablo()
Dim i As Integer, j As Integer

Set plage = Range('a1:a' & Range('a65536').End(xlUp).Row)

For Each c In plage
        If Application.CountIf(plage, c) > 1 Then
                i = i + 1
                ReDim Preserve tablo(1 To i)
                tablo(i) = c
        End If
Next c

For i = plage.Rows.Count To 1 Step -1
        For j = 1 To UBound(tablo)
                If Cells(i, 1) = tablo(j) Then
                        Rows(i).Delete
                End If
        Next j
Next i
               
End Sub

Cliquez pour agrandir...