Effacer lignes dans la date est inférieur dans cellule BN

Bonjour Forum,

je tente d'effacer les lignes qui, dans la cellule BN, la date serait inférieur à la valeur dans la textbox6 de mon userform.

Voici mon code qui me renvoi une erreur

Dim  d, xrg2 As Range   
With Worksheets("Clients")
   If .AutoFilterMode Then .Cells.AutoFilter
   d = .Range("BN" & Rows.Count).End(xlUp).Row
   On Error Resume Next
  .Range("BN3:CB" & d).AutoFilter Field:=1, Criteria1:="<" & TextBox6
  Set xrg2 = .Range("BN4:CB" & d).SpecialCells(xlCellTypeVisible)
  xrg2.ClearContents .Range("BN" & d)
      End With

Erreur de compilation:

Nombre d'Arguments incorrect ou affectation de propriété incorrecte

Quelqu'un pourrrait m'aider?

Edit** Résolu

 .Range("BN3:BN" & d).AutoFilter Field:=1, Criteria1:="<" & TextBox6
  Set xrg2 = .Range("BN3:CB" & d).SpecialCells(xlCellTypeVisible)
  xrg2.ClearContents
Rechercher des sujets similaires à "effacer lignes date inferieur"