Re : Suppression des doublons dans une liste
Voilà une procédure de suppression des doublons:
on utilise la procédure comme ceci:
Call Enlever_doublons("Feuil1", "A1", False)
A1 désigne la première cellule de ta plage
si tu as un titre tu marque true sinon tu marque False
Sub Enlever_doublons(feuille As String, myRange As String, titre As Boolean)
If titre = False Then
Worksheets(feuille).Range(myRange).Sort _
key1:=Worksheets(feuille).Range(Left(myRange, 2) & "2"), _
Order1:=xlAscending, header:=xlGuess
Else
Worksheets(feuille).Range(myRange).Sort _
key1:=Worksheets(feuille).Range(Left(myRange, 2) & "2"), _
Order1:=xlAscending, header:=xlYes
End If
Set MaCell = Worksheets(feuille).Range(myRange)
Do While Not IsEmpty(MaCell)
Set MaCellSuite = MaCell.Offset(1, 0)
If MaCellSuite.Value = MaCell.Value Then
MaCell.EntireRow.Delete
End If
Set MaCell = MaCellSuite
Loop
End Sub