Recherche doublons + suppression lignes

Re : Recherche doublons + suppression lignes

Le code ci-dessous devrait aller...

Dans cet exemple la colonne "C" est celle des chiffres. Les chiffres commencent à partir de la 2ème ligne.
Mais n'oublie pas que la suppression de la ligne concerne aussi les informations "Dates".

Ciao

Sub SupprimeRedondances()
Dim i, j, NbDonnees As Integer
NbDonnees = Range("C2", Range("C2").End(xlDown)).Count
For i = 2 To NbDonnees
For j = i + 1 To NbDonnees - 1
If Range("C" & i).Value = Range("C" & j).Value Then
Application.DisplayAlerts = False
Rows(i).Delete
NbDonnees = Range("C2", Range("C2").End(xlDown)).Count
End If
Next j
Next i
End Sub