Sub supprimer()
Dim i&, fin&, fin1&, wbks As Workbook, wbkc As Workbook, chemin$, aa As Variant, a&
Set wbkc = ThisWorkbook
chemin = "C:\Users\user1\Documents\" 'ThisWorkbook.Path
fin = ActiveSheet.Range("H" & Rows.Count).End(xlUp).Row
Set wbks = Workbooks.Open(chemin & "bddexclu.xls")
aa = wbks.Sheets("Feuil1").Range("A1:A" & wbks.Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row)
wbks.Close 0
With ActiveSheet
For a = fin To 2 Step -1
For i = 1 To UBound(aa)
MsgBox Cells(a, 8).Value
If Split(.Cells(a, 8), "@")(1) = aa(i, 1) Then .Cells(a, 8).Delete shift:=xlUp: GoTo 1
1 Next i
Next a
End With
End Sub