Décaler ligne de tableau

[ascal44]

Bonjour,
je joint un fichier où je voudrais décaler des lignes vers le haut si des cellules de la colone D sont vide.

 

[mromain]

Re : Décaler ligne de tableau

bonjour ascal44

voici un code à adapter :

Sub test()
noColonneTrain = 4
moPremiereLigneTableau = 4

With ActiveSheet
    For i = .Cells(.Rows.Count, noColonneTrain).End(xlUp).Row To moPremiereLigneTableau Step -1
        If .Cells(i, noColonneTrain).Text = vbNullString Then .Rows(i).Delete
    Next i
End With
End Sub

a+

 

[ascal44]

Re : Décaler ligne de tableau

Bonjour,
cela fonctionne, mais j'ai des données à coté du tableau que je ne voudrais voir disparaitre.

Comment appliquer ce code aux seules cellules B4:F18 ?