J'aimerais supprimer toute les colonnes contenant des informations situées après la colonne "Q" pour cela j'ai écrit le petit bout de programme suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Do While Range("Q:Q").Select <> Empty
        Selection.Delete
Loop
Je me suis dit que lorsque la colonne "Q" sera vide le programme arrètera de boucler (<> Empty) , ... Ben non

en l'exécutant je vois petit les colones se décaler est se "supprimer" mais lorsque la dernière colone est effacée : ca continue à boucler !!

Merci pour toute aide