Option Explicit
Sub Macro()
'''''''''''''''''''''''''''''''''''
' Macro Dans Module1 de Classeur1 '
'''''''''''''''''''''''''''''''''''
Range("A3:" & Selection.End(xlDown).Address).EntireRow.ClearContents 'bond : Vide la zone de réception
Dim NomOnglet As String
NomOnglet = ThisWorkbook.Sheets("Feuil1").Range("A1") 'dans mon fichier, on rentre le nom de l'onglet
Windows("Classeur2").Activate: Sheets(NomOnglet).Select 'J'aimerais à partir de mon fichier, allé dans un autre
Range("A3:" & Selection.End(xlDown).Address).EntireRow.Copy 'Chaque tableau a aussi un nombre de ligne diférent mais commence tous à la ligne 3. Donc je sais pas comment procéder, et comment réaliser un balayage de ce tableau
ThisWorkbook.Activate: Range("A3").Select 'récupérer toutes les lignes. bond : hypothèse pour "récupérer"
ActiveSheet.Paste
End Sub