VBA Supprimer a partir d'une colonne precise

Bonjour ,

comment peut on supprimer a partir d'une colonne bien precise jusqu'a la derniere colonne non vide ? et que ca sera en boucle ?

dim lastcolumn as integer

lastColumn=cells(1,cells.columns.count).end(xtoleft).column

for i= ?? la colonne H par exemple jusqu'a lastColumn

aidez moi svp

si c'est juste supprimer tout les colonne jusqu'au dernier nul besoin de boucle =)

Sub test()
  lastColonne = Range("IV1").End(xlToLeft).Column
  firstColonne = "la colonne précise "

  Range(firstColonne & ":" & Split(Columns(lastColonne).Address(ColumnAbsolute:=False), ":")(1)).EntireColumn.Delete

End Sub

à tester

merci pour ta reponse ,

est ce que j'aurai pas besoin d'une boucle ? parce que a chaque je vais remplir ces colonnes et je devrai les supprimer par la macro .

firstColonne = "la colonne précise " svp , ici je mets par exmple :

firstColonne = cells(1,5).value ? j'ai pas su comment la définir

et est ce que tu peux m'expliquer Range("IV1") ?

Le macro que je fournie sert uniquement a supprimer tout les colonne à partir d'une colonne précise

exemple pour firstColonne :

firstColonne = "C" ' en gros le nom de la colonne

si c'est par rapport a une cellule on a toujours la solution de " Split(Columns(cells(1,5).column).Address(ColumnAbsolute:=False), ":")(1) "

IV1 est le nom d'une colonne (qui est assez loin de "A")

range("IV1") signifie jusqu’à cette colonne