Sub Macro1()
'Macro1 Macro
' Macro enregistrée le 09/10/2007
Windows("Balance holding.xls").Activate 'J'active ma feuille hoding
ActiveSheet.Range("A1").AutoFilter , Field:=1, Criteria1:="<70601000>", VisibleDropDown:=False 'je réalise mon filtre en ne voulant que le compte 70601000.
Dim i As Integer
i = 1
While Cells(i, 1) <> "" '1 représente ici la colonne
Cells(i, 1).Copy ' je veux copier les données (seulement ce n'est pas la ligne deux mais une ligne n
Windows("Ventilation des charges.xls").Activate
Feuil3.Range("A12:c12").PasteSpecial ' Je veux le coller sur la colonne A et ligne 12!
Operation = xlPasteSpecialOperationAdd
Wend
End Sub