Couper valeur vide

Bonsoir à tous,

J'ai besoin d'un coup de main.
Je souhaite déplacer des valeurs d'une colonne (W3) vers A3 sur une même feuille, mais j'ai des lignes vides.

Actuellement avec la commande (voir fichier en PJ) dés qu'il passe sur une ligne vide il s'arrête là.

Je voudrais que le couper / coller continue quoi qu'il arrive ...

Merci de votre aide.

Thomas

    IndexOngletNew = "Feuil1"
    Sheets(IndexOngletNew).Select
    Range(Range("W3"), Range("BM3").End(xlDown)).Cut Destination:=Range("A3")

Bonjour,

Dans ce cas, il ne faut pas descendre (xldown), mais remonter (xlup)

Range(Range("W3"), Range("BM" & rows.count).End(xlup)).Cut Destination:=Range("A3")

Bonjour Steelson,

Merci une nouvelle fois de votre aide.

Bonne journée

Thomas