Parfait !!
Merci beaucoup c'est exactement ça !
Pour l'inclure dans ma fonction "mailtoo" dans visual basic si je copie ça :
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
Et que je remplace le "ALERTE" par "Pre Alerte" ça passera ou c'est plus complexe ?
Merci d'avance !