Sub RAZCOLONNE()
Dim T()
Dim Cpt1 As Long
Application.ScreenUpdating = False
T = Array(15, 12, 5, 0.3)
For Cpt1 = 7 To 78 Step 4
For Cpt2 = 0 To 3
Columns(Cpt1 + Cpt2).ColumnWidth = T(Cpt2)
Next Cpt2
Next Cpt1
Application.ScreenUpdating = True
End Sub