Supprimer Colonnes Avec Macro

Bonsoir le forum,

Ma macro ne supprime que le premier bloc de colonne de "C à M"
Comment faire pour les autres colonnes ?

Je joint un fichier avec l'exemple pour plus de clarté :
Il ne doit rester que les colonnes en vert

Merci



Sub SupprimerColonnes()

Columns("C:M").Select
Selection.Delete Shift:=xlToLeft

Columns("Q:S").Select
Selection.Delete Shift:=xlToLeft

Columns("W:AB").Select
Selection.Delete Shift:=xlToLeft

Columns("AF:AG").Select
Selection.Delete Shift:=xlToLeft

Columns("BD:BD").Select
Selection.Delete Shift:=xlToLeft

Range("A1").Select

End Sub