"Défusionner" cellules puis supprimer les colonnes vides

Bonsoir,

Dans un fichier provenant d'une extraction, je souhaite "défusionner" puis supprimer les colonnes vides générer à la suite de cette "défusion"...J'ai tenté le code ci-dessous mais ça me supprime tout même le commandbutton...pourriez-vous m'aider SVP?

Voici le code:
Sub Bouton2_Clic()
Range("A1:K65536").UnMerge
Dim c
For c = 256 To 1 Step -1
If Cells(65536, c).End(xlUp).Row = 1 Then Cells(1, c).EntireColumn.Delete
Next c
End Sub