Bonjour,
Si j'ai bien compris ton problème, il faudrait que tu fasses un tri sur ton 2eme tableau, ce qui supprime toutes les lignes vides, utilises l'enregistreur de macro pour le faire.
Ca donne ceci :
'si mes données sont sur la plage "a1:a15"
Range("A1:A15").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
A +++