[quote="mat46007"]Une question, comment traduire cette ligne :
dlgR = ft.Range("A" & Application.Max(10, ft.Range("B" & Rows.Count).End(xlUp).Row)).Row
ft.Range("B" & Rows.Count).End(xlUp).Row Cette partie d’instruction donne le numéro de la ligne atteinte en partant du bas du tableau (tout en bas) et en remontant jusqu’à la première ligne non vide, dans la colonne B.
Application.Max(10, ft.Range("B" & Rows.Count).End(xlUp).Row) Donne la plus grande des 2 valeurs : 10 ou le numéro de la ligne qu’on vient de définir.
Lorsque le tableau est vide de valeurs, la valeur 10 est retournée. C’est à partir de cette ligne qu’on va coller les valeurs copiées.
ft.Range("A" &.. Là, on définit la feuille et la colonne où on va faire ce collage.
OK ?
Bye !