XL 2019 Supprimer ligne contenant contenant mot (adresse mail)

Sub Supprime_Mails()
    Dim List_Mails, Mail_en_Cours, Compteur As Long
    List_Mails = Array("@gmail.", "@yahoo.")
    For Compteur = Range("A65536").End(xlUp).Row To 2 Step -1
        For Each Mail_en_Cours In List_Mails
            If Range("A" & Compteur).Value Like "*" & Mail_en_Cours & "*" Then Range("A" & Compteur).EntireRow.Delete Shift:=xlUp
        Next Mail_en_Cours
    Next Compteur
End Sub

Sub Nettoyage()
Dim DL%, L%
Application.ScreenUpdating = False
DL = Range("A65500").End(xlUp).Row
For L = DL To 2 Step -1
    If (Cells(L, "A") Like "*@gmail.com") Or (Cells(L, "A") Like "*@yahoo.fr") Then
        Cells(L, 1).EntireRow.Delete
    End If
Next L
End Sub