Select and delete entire columns

[williedog]

Hello Ramo964516,

Alternatively, if you want to delete contiguous ranges based on a single selected cell, such as G1 for example, you can do this -

Range(strPlageSélectionnée).Resize(, 2).EntireColumn.Delete  ' change 2 to any number of contiguous columns

Hope that helps!