Décaller les colonnes suivant une condition e

Bonjour à tous,

Voici mon souci:

Je cherche à décaller ma plage de données de la feuille 2 suivant une condition de la feuille 1.

Exemple:

Feuille 2:
A B C D
1 4 8 9
2 4 5 6
1 5 6 8

Si cellule feuille 1 =0...
alors Feuille 2:
A B C D
1 4 8 9
2 5 6
1 6 8

En effet, je veux que mon décallage s'éffectue à la cellule 2.

Voici mon code:
Dim Colonne9 As Variant
If Worksheets("Feuille1").Cells(16, 2) = "0" Then
Colonne9 = Range("A2:J3").Find(What:="Titre de la colonne qui varie").Column
Columns(Colonne9).Rows("2:100").Delete Shift:=xlUp
-----
Donc cela me donne une colonne avec des cellules vides. Voici ce que cela me donne:
A B C D
1 8 9
2 5 6
1 6 8

Avez-vous une solution?
En gros je cherche à supprimer la colonne à partir de la cellule 2.

Merci à tous