Copier une ligne dans un autre fichier Excel

Bonjour,

Avant toute chose je tiens a dire que je débute en VBA et que je suis sous excel 2003.

Je cherche a faire une macro qui, entre autre, doit copier une ligne entière dans un autre fichier excel.

voici le code que je teste actuellement pour cela :

Sub test()

Dim WBSource As Workbook, WBDest As Workbook
Dim i As Integer

Set WBSource = Workbooks("testmacro.xls")
Set WBDest = Workbooks("test.xls")

i = WBDest.Worksheets(1).Range("A").End(xlUp).Row + 1 'ligne vide a la fin du tableau

WBSource.Worksheets(1).Rows(1).Copy _
    Destination:=WBDest.Worksheets(1).Cells(i, 1)

Application.CutCopyMode = False

End Sub

Cependant, quand j'execute cette macro , j'ai l'erreur suivante : "Erreur d'execution '9': L'indice n'appartient pas à la selection."

Les fichiers sont dans le même repertoire.

Quels sont les modifications à apporter pour faire fonctionner ce petit bout de code ?

Merci d'avance !

Salut,

la ligne suivante est mal écrite :

i = WBDest.Worksheets(1).Range("A").End(xlUp).Row + 1

remplace là par celle ci :

i = WBDest.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1 'ligne vide a la fin du tableau

d'autre part, lorsque tu copies avec la commande "Destination" la ligne suivante

Application.CutCopyMode = False

n'est pas nécessaire.

Merci de ta réponse, le problème est résolu !