Oui cela fonctionne.
Je te dis ou j'en suis arrivé quand même:
Sub module1()
Range("A1:A10").Copy
Workbooks.Open Filename:="C:\Users\Jean_Jacques\Desktop\fichier_cible.xlsx"
With Sheets("Feuil1").Range("A1:A10").End(xlUp)(2)
.PasteSpecial Paste:=xlValues, Transpose:=False
End With
End Sub
Cependant j'ai encore des pbs:
- je voudrais dans la 1e ligne copier toutes les lignes de la colonne A jusqu'à trouver une case vide (avec xldown je suppose mais je galère)
- copier une autre colonne (D1:D10) et aussi deux autres colonnes dans un autre onglet du même fichier
Je vais essayer de m'inspirer de ce que tu as envoyé mais je ne comprend pas tout
Et merci