Copier coller valeur textbox colonne filtrée

j'ai uncode vba comme ceci:
Range("archivjour!A65536").End(xlUp).Offset(1, 0) = A.Offset(0, 0).Text
j'ai déjà éssayé avec UsedRange.Rows.Count mais pas réussi.
je suis débutant en vba désolé

voici le code complet.arriverais tu à l'adapter avec le problème de filtres?:

Dim A As Range
Set A = Range("listetag!B1:a" & Range("listetag!A65536").End(xlUp).Row).Find(TextBox1.Value)
If Not A Is Nothing Then
Range("archivjour!A65536").End(xlUp).Offset(1, 0) = A.Offset(0, 0).Text
Range("macros!y2") = A.Offset(0, 0).Text
End If

Ceci devrait fonctionner :

With Sheets("archivjour")
    .Cells(.UsedRange.Rows.Count + 1, 1).Value = Me.TextBox1.Value
End With

c'est super! sauf que malheureusement il me colle les données en décalé encore plus pas,comme s'il mémorisait les lignes que j'ai éfacées et qu'il n'a pas pris en compte!

C'est le problème bien connu de UsedRange qui n'est mis à jour pour les suppressions qu'à la réouverture du classeur. Comme ceci tu contourner le bug ;-)

Dim lig As Long
With Sheets("archivjour")
    lig = .UsedRange.Rows.Count + 1
    While .Cells(lig - 1, 1).Value = ""
        lig = lig - 1
    Wend
    .Cells(lig, 1).Value = Me.TextBox1.Value
End With