Bonjour Ben , Bonjour Wally
peux tu tester la macro ci dessous
Sub EffaceLignesDoublons()
'http://www.excel-downloads.com/html/French/forum/messages/1_71835_71835.htm
'michel le 19.02.2004
Dim Cell As Range
Dim Ligne As Integer, i As Integer
Dim M As Integer, N As Integer
Dim U As Boolean
Dim Tableau(), Tableau2()
Ligne = Range("C65536").End(xlUp).Row ' derniere ligne non vide colonne A
M = 1
N = 1
ReDim Preserve Tableau(M) 'tableau valeurs uniques colonne A
ReDim Preserve Tableau2(N) ' tableau pour numero de lignes doublons
Application.ScreenUpdating = False
For Each Cell In Range("C1:C" & Ligne)
U = False
For i = 1 To M
If Cell = Tableau(i - 1) Then '
Tableau2(N - 1) = Cell.Row ' recupere numero de ligne quand un doublon est detecté
N = N + 1
ReDim Preserve Tableau2(N)
U = True
End If
Next i
If Tableau(M - 1) = "" And U = False Then
Tableau(M - 1) = Cell ' remplissage tableau valeurs uniques si pas de doublon détecté
M = M + 1
ReDim Preserve Tableau(M)
End If
Next Cell
For i = 1 To N - 1
Cells(Tableau2(i - 1), 1).Clear
Cells(Tableau2(i - 1), 2).Clear
Cells(Tableau2(i - 1), 3).Clear
Next i
Application.ScreenUpdating = True
End Sub
bonne journee
michel