Sub Défilement()
Me.Unprotect "Ternoise" 'mot de passe
[O9] = "=AND(" & IIf([C6] = "", "TRUE", "C9=C$6") & ",D9>=G$5,D9<=J$5)" 'C6 cellule liée
With Range("B8:N" & Application.Match("zzz", [C:C]))
.AdvancedFilter xlFilterInPlace, [O8:O9] 'filtre élaboré
End With
Me.Protect "Ternoise" 'mot de passe
End Sub