Mettre a jour une extaction BD automatique

Private Sub Worksheet_Change(ByVal Cel As Range)
If Intersect(Cel, Range("F2:G2")) Is Nothing Then Exit Sub
Range("BD").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("cr") _
        , CopyToRange:=Range("zd"), Unique:=False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Columns(6)) Is Nothing Then
      Extrait_BD
    End If
    If Not Application.Intersect(Target, Columns(7)) Is Nothing Then
      Extrait_BD
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("F2:G2")) Is Nothing Then
      Extrait_BD
    End If
End Sub

Private Sub Worksheet_Change(ByVal Cel As Range)
Range("BD").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("cr"), _
CopyToRange:=Range("zd"), Unique:=False
End Sub