tri sur plusieurs feuille

Private Sub Worksheet_Calculate()
Dim w As Worksheet, crit$
'---RAZ---
For Each w In Worksheets
  If w.Name <> Me.Name Then w.AutoFilterMode = False
Next
'---filtrage---
If Me.AutoFilterMode Then
  If Me.AutoFilter.Filters(2).On Then 'filtre sur colonne B
    If Me.AutoFilter.Filters(2).Operator = 0 Then 'un seul critère
      crit = Me.AutoFilter.Filters(2).Criteria1
      For Each w In Worksheets
        If w.Name <> Me.Name Then _
          w.Range("A6:D" & w.[B65536].End(xlUp).Row).AutoFilter 2, crit
      Next
    End If
  End If
End If
End Sub

If Me.AutoFilter.Range.Column = 1 And _
  Me.AutoFilter.Range.Columns.Count > 1 Then 'sécurité