Private Sub CommandButton1_Click()
Dim NbColonnes As Integer
Dim Tableau() As String
'Compter le nombre de colonnes:
NbColonnes = ActiveSheet.UsedRange.Columns.Count
'Enregister le format de chaque colonnes dans un tableau
ReDim Tableau(NbColonnes)
For i = 1 To NbColonnes
Tableau(i) =[FORMAT DE LA COLONNE]
Next i
End Sub