Bonjour,
Voici une procédure (parmi d'autres du forum) issue de l'appli Doublons Macros qui répondait à une question sur les doublons, à adapter selon la colonne où se trouve les doublons, à placer dans un module (AltF11) :
'http://www.excel-downloads.com/html/French/forum/messages/1_62749_62749.htm
'michelxld@yahoo.fr le 24.12.2003
'Doublons_Macros France Mars 2004
'=================================================================
'Module pour la feuille Suppression 2
'=================================================================
Sub SupprimerLignesDoublons()
Dim Cell As Range
Dim Ligne As Integer, I As Integer
Dim M As Byte, U As Byte, N As Byte
Dim Tableau(), Tableau2()
Dim Resultat As String
Ligne = Range("B65536").End(xlUp).Row ' derniere ligne non vide colonne B
M = 1
N = 1
ReDim Preserve Tableau(M) 'tableau valeurs uniques colonne B
ReDim Preserve Tableau2(N) ' tableau pour numero de lignes doublons
Application.ScreenUpdating = False
For Each Cell In Range("B4:B" & Ligne)
U = 0
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 = 1
End If
Next I
If Tableau(M - 1) = "" And U = 0 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 = N - 1 To 1 Step -1 ' boucle pour supprimer les lignes de doublons
Rows(Tableau2(I - 1)).Delete
Next I
Application.ScreenUpdating = True
End Sub
(ici colonne B)
à voir si cela peut t'aider
Celeda
