Qu'est-ce que winparrot ? Supposons que cela n'a pas d'importance, car le traitement des doublons se ferait après le traitement de winparrot, et non pas en même temps.
Voici une petite macro de supression de doublon
Sub DeleteDouble()
' Suppression de doublon
Dim rRange As Range
Dim vCell As Variant
Set rRange = Range([A1], [A1].End(xlDown))
For Each vCell In rRange
Do While vCell = vCell.Offset(1, 0)
vCell.Offset(1, 0).EntireRow.Delete
Loop
Next vCell
End Sub |
Le tableau doit être trié. Le test ne se fait que sur la première cellule et sur celle d'en dessous; Donc, il faudrait le modifier un peu pour tester l'égalité de toutes les cellules d'une ligne avec celles de la ligne du dessous.