il suffit de l'épurer un peu, repèrer ce qui est utile ou pas, supprimer les "select" et le tour est joué:
Code:
Sub Macro1()
' masquer une colonne
Columns("C:C").EntireColumn.Hidden = True
' appliquer un format centré, arial9
With Range("A1")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Name = "Arial"
.Font.Size = 9
End With
End Sub