Bonjour,
Le code avait des erreurs d'éxecution. Mais merci quand même.
J'ai trouvé un autre moyen d'y arriver.
Sub macrocopiefichdyn()
Dim ShSource As Worksheet, ShCible As Worksheet, dynlig As Long, histolig As Long
dynlig = Workbooks("Classeur1 test.xlsm").Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row
histolig = Workbooks("Classeur2 test.xlsm").Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row + 1
Set ShSource = Workbooks("Classeur1 test.xlsm").Sheets("BDD")
Set ShCible = Workbooks("Classeur2 test.xlsm").Sheets("BDD")
ShSource.Range("A3:O" & dynlig).Copy ShCible.Range("A" & histolig)
End Sub