Copié coller de la première cellule FILTREE

Bonjour,

Je dispose d'un code tel que :

Sub test()
    Dim i As Integer 'variable pour la boucle
    Dim s As String  'variable pour stocker la dernière valeur connue
    'Un exemple de boucle, cela dépends entièrement de votre besoin de travail
    'Par exemple, si vous voulez mettre un "FIN" dans une cellule et que vous voulez vous arreter la, ça serait
    'i = 1
    'while Activesheet.Cells(i,1).value <> "FIN"
    '    Code...
    '    i = i + 1
    'Wend
        For i = 2 To 1000
            'Si la cellule n'est pas vide, on stocke la valeur de cette cellule
            If (ActiveSheet.Cells(i, 1).Value <> "") Then
            s = ActiveSheet.Cells(i, 1).Value
            
            'Si la cellule est vide, on mets la valeur stockée dans la cellule
            Else
            ActiveSheet.Cells(i, 1).Value = s
            End If
        Next i
End Sub

Le but de ce code est de copié la valeur A1=3 et de la copié jusqu'à AX jusqu'à qu'il rencontre un autre A1245 =147 et la copie jusqu'à AY et ainsi de suite.

Je souhaiterais adapté ce code ou en faire un autre pour que celui-ci soit appliqué aux cellules filtrées uniquement et donc visible.

De facto, un autre problème est que ce code présente i =2 to 1000. Hors, lorsque je filtre j'aurais la ligne par exemple 4256 jusqu'à 5658 puis de 10000 jusqu'à 12000 à laquelle je dois attribuer ce code donc il faudrait que ce code soit adapté aux cellules visibles qui ont été filtré.

Merci pour votre aide ! :)

Bonne journée !