bonjour,
Tu avais déjà la réponse dans une macro sur le même sujet.
On ne Select jamais en macro (ce qui ralentirai inutilement le code)
Le problème revient juste à identifier la dernière ligne pleine d'une colonne.
Sub tirage()
Dim melange As New Collection
Dim i%, j%, k%, x%, o, v, Plage As Range
Set Plage = Range("D7:D" & Range("D1000").End(3).Row)
For Each o In Plage
melange.Add o.Value
Next
...
Dans le début de cette macro cette ligne :
Set Plage = Range("D7:D" & Range("D1000").End(3).Row)
définie la plage utile de la colonne D (à partir de D7...)
Pour définir la plage utile dans la colonne J, YAKA modifier comme suit :
Set Plage = Range("J1:D" & Range("J1000").End(3).Row)
La suite de la macro sans changement...
Pour la deuxième partie de la question avec une feuille supplémentaire je n'ai pas compris la question. Préciser.
A+
Nota : Merci de ne pas rouvrir d'autre fil sur ce sujet, je ne répondrai plus à des questions redondantes ou il y a juste une ligne ou une variable à changer et ou il faut se farcir 10 pages de forum pour se remémorer... Tout le monde à pas l'ADSL et une bécane hight-speed hein !