Suppression de doublons

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

Bonjour

Essaie plutôt comme ceci

Sub SuppDoublons()
Dim i As Integer, LastRowA As Integer, lg As Integer

LastRowA = Worksheets("Actuel").Range("A65536").End(xlUp).Row

For i = LastRowA To 5 Step -1
    On Error Resume Next
    lg = WorksheetFunction.Match(Worksheets("Actuel").Cells(i, 1), Worksheets("Precedent").Columns("A"), 0)
    If Err = 0 Then Worksheets("Actuel").Rows(i).EntireRow.Delete
Next i
End Sub

Si ok, clique sur le v vert à coté du bouton EDITER lors de ta réponse afin de clôturer le fil

Cordalement

Ca marche parfaitement !! Merci beaucoup

Rechercher des sujets similaires à "suppression doublons"