J'ai essayé ce code en l'appliquant à mes vrais fichier mais rien ne ce passe, je ne sais pas si c'est une erreur de ma part ou si quelque chose ne fonctionne pas.
Mais je me demandais aussi si ce code là copie colle une feuille entière ou donc juste la plage de donnée "A2:A16") que tu notes
Voici le code que j'ai en actualisant avec mes données :
Const FTD As String = "chemin du fichier" '(j'ai mis le bon chemin dans mon code)
Dim fichier_source As Excel.Workbook
Set fichier_source = ThisWorkbook
Dim feuille_source As Excel.Worksheet
Set feuille_source = fichier_source.Worksheets(8)
For nLig = 15 To 37
If feuille_source.Range("I" & nLig) <> "" Then Exit Sub
Next nLig
Dim fichier_cible As Excel.Workbook
Set fichier_cible = Workbooks.Open(Filename:=FTD)
Dim feuille_cible As Excel.Worksheet
Set feuille_cible = fichier_cible.Worksheets.Add
feuille.Name = feuille_source.Range("K6") & " " & feuille_source.Range("K5")
feuille_source.Range("A1
40").Copy
feuille_cible.Range("A1
40").PasteSpecial xlPasteValues