Private Sub Worksheet_Calculate()
Dim colonne, critere
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
Me.Unprotect "citedia"
Me.AutoFilterMode = False 'affiche tout
If [D6] < 9 Then
colonne = Array(11, 11, 8, 8, 9, 9, 10, 10)
critere = Array("A valider/B. BUDET", 0, "A contrôler*", 0, _
"A contrôler/Compta", 0, "A signer/F. DEMAY", 0)
[A16:L1004].AutoFilter colonne([D6] - 1), critere([D6] - 1)
End If
Me.Protect "citedia"
Application.EnableEvents = True 'réactive les évènements
End Sub