Bonjour à tous.
Je n'ai pas lu tout le fil en détail, mais voici comment aller directement sur la première case vide dans la colonne J, sans faire de boucle avec les offsets:
Range("J65536").end(xlup)
Je suppose que si les données doivent être inscrites à partir de J5, c'est qu'il y a un titre en J4 (sinon, il faut rajouter un test)
Cette façon de procéder permet d'arriver au résultat souhaité beaucoup plus facilement:
For i=0 To Listbox1.ListCount - 1
If Listbox1.Selected(i) = True Then range("J65536").end(xlup).offset(1,0)=listbox1.list(i)
next i
Voilà, c'était juste pour éviter la boucle et les select.
Bonne soirée, Laurent