Private Sub Worksheet_Change(ByVal Target As Range)
Dim Filtre$, Colonne%
If Intersect(Target, [G18]) Is Nothing Then Exit Sub
Filtre = [G18]
With [Tableau1].ListObject.Range
.AutoFilter
.AutoFilter
If Filtre = "ADMIN" Then Exit Sub
Colonne = [Tableau1[sg]].Column - [Tableau1].Column + 1
.AutoFilter Colonne, Filtre
.AutoFilter Colonne + 6, "Validé"
End With
End Sub