salut Neuba...
Regarde le fil :
<http://www.excel-downloads.com/html/French/forum/messages/1_8877_8871.htm>
C'est idem que ta demande et j'ai répondu avec une solution VBA disons, de base...... çà peut pet-être t'aider
dans le code remplace :
Cell.EntireRow.Delete
Par :
Cell.EntireColumn.Delete
Cà devrait passer ...
Bonne Nuit
@+Thierry