Ligne complètement vide avant copie

[altinea]

bonjour le forum, je viens vers vous pour avoir une solution à mon souci. J'ai un code qui me permets de copier les informations d'un ligne vers une autres feuille dès qu'il rencontre la première ligne vide.
Après utilisation, mon souci est que les premièes cellules si elles ne sont pas remplies, le système doit considérer que la ligne est vide.
Ma question "comment faire afin que la copy se fasse si la ligne est entierement vide, s'il y a des cellules remplies dans la ligne, hop on cpy en dessous?"


Private Sub Valider_Click()
Sheets("Choix").Select
Range("a3:w3").Copy
Sheets("Liste").Select
Range("a" & Sheets("Liste").Range("a65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
Sheets("Liste").Select
End Sub

merci pour votre aide

 

[altinea]

Re : Ligne complètement vide avant copie

Encore moi,
pour staple 1600 ça fonction j'ai juste supprimé toutes les lignes jusqu'à 7000, il devait y avoir un truc qui derangeai quelque part
merci
pour robert je suis malgré tout curieux d'avoir la solution,
du coup comme j'ai deux usf, j'ai utilisé celle de staple sur une et de robert sur l'autre merci encore