Sub trieTout()
For Each f In Worksheets
If f.Name <> "Synthese" And f.Name <> "Synthese 2" Then
f.Range("A2").CurrentRegion.Sort key1:=f.Range("B2"), Header:=xlYes
mag = Application.Match(6, f.Range("A:A"), 0)
If Not IsError(mag) Then f.Rows(mag).EntireRow.Delete
End If
Next f
End Sub