Copier/coller la valeur des cellules non vide

Sub Test()
Dim LastRowA As Long
Application.ScreenUpdating = False
Range("O4:R49").ClearContents
LastRowA = Range("AA").End(xlUp).Row
With Feuil4
.Range("AA").AutoFilter Field:=1, Criteria1:="<>"
.Range("AA").SpecialCells(xlCellTypeVisible).Copy .Range("O4")
.Range("AA").AutoFilter
End With
Application.ScreenUpdating = True
End Sub

LastRowA = Range("AA").End(xlUp).Row

Sub Test2()
Dim Tablo(), Plg, t&, i&, Var
With Feuil4
    .Range("O4:R49").ClearContents
    Set Plg = .Range(.Cells(1, 27), .Cells(Rows.Count, 27).End(xlUp))
    ReDim Tablo(1 To Plg.Rows.Count, 1 To 2)
    For i = LBound(Tablo, 1) To UBound(Tablo, 1)
        Var = Plg(i, 1)
        If Var <> "" Then
            t = t + 1
            Tablo(t, 1) = Var
        End If
    Next i
    .Cells(4, 15).Resize(t, 1) = Tablo
End With
End Sub

With Feuil4
.Range("AA").AutoFilter Field:=1, Criteria1:="<>"
.Range("AA").SpecialCells(xlCellTypeVisible).Copy 
.Range("O4").PasteSpecial xlPasteValues
.Range("AA").AutoFilter
End With