Salut Fermo, le Forum
Oui, non, un peu, pas du tout !! lol
L'enregistreur de macro est une outil impressionnant que je recommande à tous, mais inutile de poster tout ce qu'il est capable de faire, car sinon David devra vraiment faire payer les visiteurs pour se rembourser les frais d'hébergement !
Bon alors une première approche qui est toujours exactement la même que celle que je t'ai mise en lien plus haut ...
Option Explicit
Sub ReportDonnees()
Dim WBSource As Workbook, WBCible As Workbook
Set WBSource = Workbooks("Prog STRATEX.xls")
Set WBCible = Workbooks("Copie de Prog STRATEX.xls")
WBSource.Sheets("Toto").Rows("3:1000").Copy Destination:=WBCible.Sheets("Toto")..Rows(3)
'etc etc etc
WBSource.Sheets("Zaza").Rows("2:1000").Copy Destination:=WBCible.Sheets("Zaza")..Rows(2)
'etc etc...
WBSource.Sheets("Lulu").Range("F28").Copy Destination:=WBCible.Sheets("Lulu").Range("F28")
End Sub
Bonne Nuit
@+Thierry