Suppresion des 2 dernières colonnes

En ce dernier jour de l'année, bonjour au forum

Dans le fichier joint, je voudrais rechercher et supprimer par macro les 2 dernières colonnes à droite dont la ligne 2 est non vide et bloquer la macro si on arrive à la colonne E

Citaro, bon réveillon

Bonjour,

rien compris...

mais, je suis dur de la comprenette parfois (souvent)

P.

Bonne année à tous,

La solution pour d'autres visiteurs

Option Explicit

Sub Dernière_colonne_supprimer()

Range("f2").End(xlToRight).Offset(, -1).EntireColumn.Resize(, 2).Delete

Range("e2").Select

End Sub

Citaro