Macro programmée en vb

bonjour,
je posséde deux feuilles ; la première feuille contient les références ainsi que les quantités des produits qu'un client à acheter ; la deuxième feuille contient la facture.
la feuille 1

Citation:

Produits client
Référence Quantité
2 1
3 2

la feuille 2

Citation:

facture
référence Quantité Description P.unitaire réduction total

Mon but est de copier les données de la première feuille dans la deuxième sachant que les 2feuilles existent dans le même classeur.
j'ai pu créer une macro qui permet d'ajouter une ligne dans la feuille 2 :
Code:

1 2 3 4 5 6 7 8 9 Sub Macro1() ' ' Macro1 Macro With Application.ThisWorkbook.Sheets("facture") .Rows(.Rows(.Rows.Count).End(xlUp).Row).Insert End With ' End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test()
 Dim i as integer
 Dim Cel1, Cel2, plage as Range
Set Cel1=Worksheets(1).Range("A3") 'feuille 1
Set Cel2=Worksheets(1).Range("A3").End(xlDown).End(xlToRight)
Set plage=Range(Cel1,Cel2)
For i=1 to plage.Rows.Count
Call Macro1
next i
plage.copy
Worksheets("facture").Range("A3").Paste
end Sub

je viens de tester le code mais il m'affiche un message d'erreur

Citation:

erreur d'exécution'-2147417848(80010108)'
la méthode 'range'de l'onjet'_worksheet' a echoué

c'est très bien mais a quel endroit ?
Au niveau de Cel2 peut-être
Si oui fais plutôt ça. Après j'ai pas testé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub test()
 Dim i as integer
 Dim Cel1, Cel2, plage as Range
Set Cel1=Worksheets(1).Range("A3") 'feuille 1
Worksheets(1).Range("A3").End(xlDown).Select
Selection.End(xlToRight).Select
Set Cel2=Selection
Set plage=Range(Cel1,Cel2)
For i=1 to plage.Rows.Count
Call Macro1
next i
plage.copy
Worksheets("facture").Range("A3").Paste
end Sub

sa marche toujours pas :oops:
il m'affiche une nouvelle erreur

erreur d'execution '438'
propiriété ou methode non gérée par cet bjet