Copie d'un tableau de 8 lignes à la suite des précéd. copies

Bonjour,

Je souhaite copier le tableau A4/ F11 ( 8 lignes) (feuille "journal") sur une deuxième feuille (feuille "copie du journal") mais sans supprimer les précédentes copies. Il s'agit donc de trouver la première ligne vide pour copier les 8 suivantes. Voilà ce que j'ai fait mais à chaque fois la 8ème ligne est supprimée. Merci beaucoup pour votre aide. JJ

Sub copiedujournalarchives()

'

' copiedujournalarchives Macro

'

' Range("A4:F11").Select

Selection.Copy

Sheets("copie du journal").Select

Range("A4").Select

Selection.End(xlDown).Select

ActiveSheet.Paste End Sub

Bonsoir,

Voici une solution à tester :

Sub copiedujournalarchives()
'
' copiedujournalarchives Macro
'
    Dim lgLigFin As Long

    ' Dernière ligne vide en colonne A de la feuille "copie du journal"
    lgLigFin = Worksheets("copie du journal").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1

    ' Copie des données
    Worksheets("Journal").Range("A4:F11").Copy Destination:=Worksheets("copie du journal").Range("A" & lgLigFin)
    Application.CutCopyMode = False
End Sub

Merci beaucoup pour la proposition. çà marche. Bravo pour la rapidité.

j'aurais voulu vous mettre le Smilies very happy mais je n'ai pas réussi.

JJ :