Private Sub Workbook_SheetActivate(ByVal o As Object)
Dim crit As String
Select Case o.Name
Case "a"
crit = "BR"
Case "b"
crit = "CR"
Case "c"
crit = "VT"
End Select
If crit <> "" Then
o.Cells.Clear
With Sheets("traitement")
.[a:d].AutoFilter Field:=3, Criteria1:=crit
.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy o.[a1]
.[a:d].AutoFilter
End With
End If
End Sub