Dernière cellule non vide

Je voudrais savoir comment faire pour trouver la dernière cellule non vide de ma colonne A. Je sais qu'il existe plein de sujets déjà traités mais je ne les comprends pas.

En fait c'est parce que ma colonne B dépend de ma colonne A. Comme je remplis ma colonne B avec une boucle for, il faudrait cette boucle aille de 1 jusqu'à la valeur de la dernière cellule non vide de la colonne A.

J'ai essayé un truc très simple qui fonctionne très bien mais pas au bon endroit !

Sub remplissage()

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

Worksheets(1).Cells(i, 2) = Worksheets(1).Cells(i, 1)

Next i

End Sub

Merci

Bonjour,

Un exemple, parmi d'autres

Option Explicit
Public Sub test()
Dim Ws As Worksheet
Dim Derligne As Long, i As Long
    Application.ScreenUpdating = False
    Set Ws = Worksheets("Feuil1")
    With Ws
        Derligne = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 1 To Derligne Step 1
            .Cells(i, "B") = .Cells(i, "A")
        Next i
    End With
    Set Ws = Nothing
End Sub