Copier des données à la suite

Bonjour,

Je souhaite réaliser une copie des données d'un onglet état vers un onglet histo.

Ces données sont classées par jour et je souhaite que la copie qui se fait dans l'onglet histo se fasse à la suite.

C'est à dire que les données du 20/07/2018 soient mises à la suite du 19/07/2018 et ainsi de suite.

Pourriez-vous me dire comment on peut faire.

Merci.

J'ai joint un fichier avec ce que je souhaite faire, en espérant que j'étais claire.

Bonjour,

Suite à une routine que j'ai fais il n'y a pas longtemps et qui peux résoudre votre problème,

A chaque fois que la colonne A est complétée , un bouton apparaît. et si vous cliquez, pouf, la ligne par dans archive.

Est ce que ça vous va ?

Bonjour,

Une méthode :

Sub TransfertHisto()
    Dim aa, n%, k%, nn&
    With Worksheets("état")
        With .Range("A1").CurrentRegion
            n = .Rows.Count - 1: k = .Columns.Count
        End With
        With .Range("A2").Resize(n, k)
            aa = .Value2
            .ClearContents
        End With
    End With
    With Worksheets("histo")
        nn = .Range("A1").CurrentRegion.Rows.Count + 1
        With .Cells(nn, 1).Resize(n, k)
            .Value = aa
            .Columns(1).NumberFormat = "dd/mm/yyyy"
            .Borders.Weight = xlThin
        End With
        .Activate
    End With
End Sub

Cordialement.

Merci pour votre aide.

Les deux méthodes me plaisent, il ne me reste plus qu'à faire mon fichier avec vos propositions.

Cordialement,

seb92110