XL 2010 Aide sur un copier coller

[hutch57]

Bonjour a tous,
une petite aide serait bienvenue, j'ai un tableau Excel une fois rempli ou la journée terminé que je sauvegarde dans un autre onglet et refait un tableau vierge pour une autre journée, mon problème dans le code c'est qu'il écrase le tableau précédemment sauvegarder au lieu de se mettre a la suite soit le 1er en A1-AA62 puis le suivant en A646-AA126 etc.

Range("A1:AA62").Select
Selection.Copy
Sheets("Sauv").Select
Range("A2").Select
ActiveSheet.Paste
Range("A2").Select
Sheets("FV").Select
Range("C11").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A347,F3:F47,H3:T47,V3:Y47,A4959,F49:F59,H49:T59,V49:Y59,B61:S62,X61" _
).Select
Range("X61").Activate
Selection.ClearContents
Range("C11").Select
End Sub

Merci pour votre aide

 

[Lolote83]

Bonjour,
Essaye plutôt ceci

Sub CopierFeuil2()
    With Sheets("SAUV")
        xDerLig = .Range("A65000").End(xlUp).Row + 2
    End With
    With Sheets("FV")
        .Range("A1:AA62").Copy Sheets("SAUV").Range("A" & xDerLig)
        .Range("A3:D47,F3:F47,H3:T47,V3:Y47,A49:D59,F49:F59,H49:T59,V49:Y59,B61:S62,X61").ClearContents
    End With
End Sub

@+ Lolote83

 

[hutch57]

Super c'est exactement ce qu'il me fallait, merci Lolote83 pour ta rapidité et une très bonne journée.

 

[Staple1600]

Bonjour le fil

Une autre possibilité
(si le format des cellules est superfétatoire )

Sub copieVS()
Dim vDat: vDat = Sheets("FV").Range("A1:AA62").Value
Sheets("SAUV").Cells(Rows.Count, 1).End(3)(2).Resize(UBound(vDat, 1), UBound(vDat, 2)).Value = vDat
Sheets("FV").Range("A3:D47,F3:F47,H3:T47,V3:Y47,A49:D59,F49:F59,H49:T59,V49:Y59,B61:S62,X61") = ""
End Sub

 

[hutch57]

Merci Staple, j'aime autant garder le format des cellule mais l'idée de copier sans les formules m'intéresse bien tout en gardant le code de Lolote
Un grand merci