Select and delete entire columns

[Ramo964516]

Hi everybody,

I have a range activated

Range(strPlageSélectionnée).Activate

, and i'm looking for selecting their entire columns in order to delete them. I know that to select a column there is a specific formula

ActiveCell.EntireColumn.Select

and to delete one column it's

ActiveCell.EntireColumn.Delete

But how can i select and delete many columns at once. Is there any specific formula ?

Thanks for your help
Image1.jpgImage2.jpgImage3.jpgImage4.jpg