J'ai eu le mème problème regarde ce code peut ètre t'aidera t'il ( à adapter )
Sub supp ()
ReDim aeff(0)
tablo1 = Sheets("Feuil1").Range("L1:L" & Sheets("Feuil1").Range("L" & Rows.Count).End(xlUp).Row)
tablo2 = Sheets("Feuil2").Range("A1:A" & Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo2, 1) To UBound(tablo2, 1)
For m = LBound(tablo1, 1) To UBound(tablo1, 1)
If tablo2(n, 1) = tablo1(m, 1) Then
exist = True
Exit For
End If
Next
If exist = False Then
aeff(UBound(aeff)) = n
ReDim Preserve aeff(UBound(aeff) + 1)
Else
exist = False
End If
Next
Application.ScreenUpdating = False
For n = UBound(aeff) - 1 To LBound(aeff) Step -1
Sheets("Feuil2").Rows(aeff(n)).Delete
Next
Application.ScreenUpdating = True
End Sub