Problème macro pour Etirer une cellule

Sub Etirer_Formule()
    
    Dim LastRw As Long
    Dim LastRwA As Long
    LastRw = Sheets("BDD 2019").Range("D" & Rows.Count).End(xlUp).Row
    LastRwA = WorksheetFunction.CountA(Sheets("BDD 2019").Range("Tableau2").Columns(1)) 'Range("A" & Rows.Count).End(xlUp).Row
    Worksheets("BDD 2019").Range("A" & LastRwA).Resize(LastRw - LastRwA + 1, 3).FillDown
    
End Sub

Sub Etirer_Formule()
Dim FirstRow As Long, LastRow As Long
  With Sheets("BDD 2019")
    FirstRow = .Cells(.Rows.Count, "a").End(xlUp).Row
    If .Cells(FirstRow, "a") = "" Then FirstRow = .Cells(FirstRow, "a").End(xlUp).Row
    If FirstRow = 2 Then Exit Sub
    LastRow = .Cells(.Rows.Count, "d").End(xlUp).Row
    If .Cells(LastRow, "d") = "" Then LastRow = .Cells(LastRow, "d").End(xlUp).Row
    If LastRow > FirstRow Then .Range("A" & FirstRow & ":C" & LastRow).FillDown
  End With
End Sub