Par exemple :
1. Sauvegarder ces données.
2. Mettre les données des deux journées à la suite dans une seule grande colonne.
3. Trier la colonne.
4. Faire tourner la petite moulinette suivante :
Sub DeleteDouble() 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 |
Il ne reste plus que les lignes uniques, donc les nouveautés.