Copier un tableau à l'infini

Bonjour,

Tout d'abord meilleurs vœux pour cette nouvelle année.

Je souhaite copier un tableau à l'infini sur la même feuille de calcul qui se remet à 0 automatiquement mais qui garde les donnés précédentes (une fois rempli), question : est-il possible de le faire avec une macro ? si non, je suis preneuse pour d'autres solutions.

Voici un fichier test ou j'avais déjà commencé une idée mais qui ne fonctionne pas.

Merci d'avance pour vos retours

Bien cordialement

Bonjour

remplacez votre code Sub Nouveau() par celui-ci

Sub Nouveau()
' Nouveau Tableau

Dim dlg As Long
With ActiveSheet
    lig = .Cells.Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    .Range("A1:Q18").Copy .Range("A" & lig + 3)
End With
End Sub

Cordialement

Bonjour Dan,

Super, Merci beaucoup !

Bien cordialement