VBA : récupération des formats cellule d'une feuille

Dim Couleur(1 To 10000) As Variant
Dim Format_Cel(1 To 10000) As Variant

Sub Test()
Dim Plage As Range
Dim Compteur As Integer
Dim Cel

Set Plage = Range(Cells(1, 1), Cells(82, 7))
Compteur = 1

For Each Cel In Plage
    Couleur(Compteur) = Cel.Interior.ColorIndex
    Format_Cel(Compteur) = Cel.NumberFormat
    Compteur = Compteur + 1
Next Cel

End Sub

[COLOR=blue]Sub[/COLOR] Macro3()
Application.DisplayAlerts = [COLOR=blue]False[/COLOR]
Sheets("Formulaire").Range("A1:G82").Copy
Sheets.Add After:=Sheets(Sheets.Count)
[COLOR=blue]With[/COLOR] Sheets(Sheets.Count)
    .Range("A1").PasteSpecial Paste:=xlPasteFormats
    .Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
[COLOR=blue]End With[/COLOR]

Sheets(Sheets.Count).Range("A1:G82").Copy
[COLOR=blue]With[/COLOR] Sheets("La_feuille_de_destination")
    .Range("A1").PasteSpecial Paste:=xlPasteFormats
    .Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
[COLOR=blue]End With[/COLOR]
Sheets(Sheets.Count).Delete
Application.DisplayAlerts = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]