Recopier vers le bas en VBA

Option Explicit

Sub COPIE()
Dim I As Long
For I = 21 To 50
 Cells(I, 2).Copy Cells(I, 1)
Next I
End Sub

Sub sonskriverez()
Dim DerLig
With ActiveCell 
    DerLig = Range("B" & Rows.Count).End(xlUp).Row ' derniere ligne de la colonne B
    Range(Cells(.Row + 1, .Column), Cells(DerLig, .Column)).Value = .Value 
End With
End Sub

Sub Recopie()
Dim dercel As Range
Set dercel = Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious)
If dercel Is Nothing Then Exit Sub
If ActiveCell.Row < dercel.Row Then _
  ActiveCell.AutoFill ActiveCell.Resize(dercel.Row - ActiveCell.Row + 1)
End Sub

Sub Variante()
Dim dercel As Range
Set dercel = Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious)
If dercel Is Nothing Then Exit Sub
    With ActiveCell
        If .Row < dercel.Row Then
        .Resize(dercel.Row - .Row + 1).FillDown
        End If
    End With
End Sub

Sub VarianteII()
Dim dercel As Range: Set dercel = Cells.Find("*", , -4123, , 1, 2)
If dercel Is Nothing Then Exit Sub
With ActiveCell
If .Row < dercel.Row Then
.Resize(dercel.Row - .Row + 1).FillDown
End If
End With
End Sub

Sub VarianteIII()
Dim dercel As Range: Set dercel = Cells.Find("*", , -4123, , 1, 2)
If dercel Is Nothing Then Exit Sub
With ActiveCell
    If .Row < dercel.Row Then
    .Resize(dercel.Row - .Row + 1).DataSeries 2, 4, , False
    End If
End With
End Sub