XL 2013 selection les 5 premieres lignes visible apres filtre VBA

Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase").Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy

Sub Recuperer_filtre()
Dim i&, n&, a(1 To 5, 1 To 2)
With [A1].CurrentRegion
    For i = 2 To .Rows.Count
        If Not .Rows(i).Hidden Then
            n = n + 1
            a(n, 1) = .Cells(i, 1)
            a(n, 2) = .Cells(i, 3)
            If n = 5 Then Exit For
        End If
    Next
    '---restitution éventuelle sous le tableau---
    With .Cells(.Rows.Count + 2, 1)
        If n Then .Resize(n, 2) = a
        .Offset(n).Resize(Rows.Count - n - .Row + 1, 2).ClearContents 'RAZ dessous
    End With
End With
End Sub

Sub Recuperer_filtre()
Application.ScreenUpdating = False
With [A1].CurrentRegion.Resize(, 3)
    .Offset(.Rows.Count).Resize(Rows.Count - .Rows.Count, 3).Delete xlUp 'RAZ en dessous
    .Copy .Cells(.Rows.Count + 2, 1) 'copier-coller
    With .Cells(.Rows.Count + 2, 1).CurrentRegion
        .Columns(3).Cut .Columns(2) 'couper-coller pour supprimer une colonne
        If .Rows.Count > 6 Then .Offset(6).Resize(.Rows.Count - 6, 2).Delete xlUp 'RAZ apès la 6ème ligne
    End With
End With
End Sub