Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$3" Then Exit Sub
Target.Select
With [Tableau1].ListObject.Range
.Cells(2, .Columns.Count + 2) = "=if(R3C7="""",TRUE,AND(RC[-5]>=R3C7-200,RC[-5]<=R3C7+200))" 'critère
.AdvancedFilter xlFilterInPlace, .Cells(1, .Columns.Count + 2).Resize(2) 'filtre avancé
.Cells(2, .Columns.Count + 2) = "" 'RAZ
End With
End Sub