Bonjour à tous ,

Je sais que ce sujet a déjà été abordé de nombreuses fois sur ce forum mais ne trouve malheureusement pas de solution à mon problème en parcourant les posts existants et bloque stupidement.

J'ai un fichier avec de trop nombreuses données alors que quelques colonnes me suffiraient. Je souhaite donc supprimer systématiquement les colonnes inutiles.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Public Sub Suppr_Colonnes()
 
   ActiveWorkbook.ActiveSheet.Range("A:A,C:K,P:Z,AA:AC,AF:AM,AO:AS,AV:AY,BC:BR,BU:BX,CB:DT,DW:EE,EG:EP,ER:GZ").Delete
 
End Sub
Quelqu'un sait-il d'où vient le problème ? (peut être de l'appelation des colonnes en "double lettre" ???)

Merci par avance,

Quentin