Sub filtre()
'
' Travailler sur la feuille Feuil1 de ce classeur
With ThisWorkbook.Sheets("Feuil1")
'
' Si la cellule active est dans le tableau de A7 et que son numéro de ligne est Supérieur à 7
If Not Intersect(ActiveCell, .Range("A7").CurrentRegion) Is Nothing And ActiveCell.Row > 7 Then
' Alors filtrer selon la colonne et la valeur de la cellule
.Range("$A$7").AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Text
End If
End With
End Sub