Bonjour,
Petit problème de macro !
Je voudrais, sur ma feuille "Actuel", supprimer tous les fichiers en commun avec la feuille "Precedent" (qui ont le même code dans leur première colonne). Le programme ci-dessous marchait très bien, je l'utilise depuis trois/quatre jours et puis ce matin, un bug au niveau de la ligne surlignée apparemment.. Je ne comprends pas ! Si vous pouviez m'aider !
Merci d'avance !
Sub SuppDoublons()
Dim i, j As Integer
Dim a, p As Integer
Dim LastRowA As Integer
Dim LastRowP As Integer
LastRowA = Worksheets("Actuel").Range("A65536").End(xlUp).Row
LastRowP = Worksheets("Precedent").Range("A65536").End(xlUp).Row
For i = 5 To LastRowA
For j = 2 To LastRowP
If Worksheets("Actuel").Cells(i, 1) = Worksheets("Precedent").Cells(j, 1) Then
Worksheets("Actuel").Rows(i).EntireRow.Delete
i = i - 1
End If
Next j
Next i