Sub paimidi()
With Worksheets("ACTIF")
If .FilterMode = True Then .ShowAllData
'tri croisant
Cells.Sort Key1:=[N2], Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'filtre
Range("A1").AutoFilter Field:=7, Criteria1:="M"
End With
End Sub