Copier dernière cellule d'une colonne

Sub recopie()
ladate = [A65000].End(3)
deb = [A65000].End(3).Row + 1
bas = [B65000].End(3).Row
For lig = deb To bas
If Cells(lig, 1) = "" And Cells(lig, 2) <> "" Then Cells(lig, 1) = ladate
Next
End Sub

Sub Rempli()
Dim PremligA As Integer, DerligB As Integer
PremligA = Range("A" & Rows.Count).End(xlUp).Row
DerligB = Range("B" & Rows.Count).End(xlUp).Row
Range("A" & PremligA).Copy Range("A" & PremligA & ":A" & DerligB)
End Sub

Sub copie()
Dim i As Integer
Dim DernLigneA As Long
Dim DernLigneB As Long
DernLigneA = Range("A" & Rows.Count).End(xlUp).Row
DernLigneB = Range("B" & Rows.Count).End(xlUp).Row
    For i = DernLigneA To DernLigneB
               If Cells(i, 2) <> "" Then
            Cells(i, 1) = Cells(DernLigneA, 1)
            End If
    Next i
End Sub