XL 2019 [VBA] Filtrer une colonne avec 2 éléments

Espry

XLDnaute Nouveau
Bonjour !
Je souhaiterai filtré sur la ligne de code si dessous, deux éléments, donc ALERTE qui est déjà écrit mais aussi Pré-Alerte.
Je ne sais pas comment y noté à coté de ALERTE sans qu'il y est une erreur. Merci d'avance !
VB:
Private Sub filtre_MAIL()
Dim derligne%
derligne = Sheets("MAIL").Cells(Rows.Count, 1).End(3).Row
With Sheets("MAIL")
    .Range("A1:F1").AutoFilter
    .Range("$A$1:$F$" & derligne).AutoFilter Field:=6, Criteria1:= _
        "ALERTE"
End With
End Sub
 

Discussions similaires