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

[Espry]

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 !

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

 

[Rouge]

Bonjour,

Mettre un astérisque devant "Alerte"
Criteria1:="*ALERTE"

Cdlt

 

[Espry]

Merci beaucoup pour votre réponse !